Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 10 van 10

Onderwerp: Bestand meemailen vanuit Excel d.m.v. IBM Notes (Lotus Notes)

  1. #1
    Vraag is opgelost

    Bestand meemailen vanuit Excel d.m.v. IBM Notes (Lotus Notes)

    Beste Helpmij'ers,

    Ik ben al geruime tijd bezig om een bestand mee te mailen vanuit Excel. Het mailen gaat prima, echter wat ik ook probeer, het bestand wordt niet meegemaild.

    De code is:
    Code:
    Const EMBED_ATTACHMENT As Long = 1454
    Const vaCopyTo As Variant = "" 'copy mailen naar: "adres"
    
    Sub mail()
    
    Dim vaRecipients As Variant
    Dim noSession As Object
    Dim noDatabase As Object
    Dim noDocument As Object
    Dim noEmbedObject As Object
    Dim noAttachment As Object
    Dim stAttachment As String
    Dim stFileName As String
    
    If [Invulblad!H5] = "" Then MsgBox "Je hebt geen e-mailadres ingevuld in cel H5 !": Exit Sub
    Sheets("Invulblad").Select
    If vbNo = MsgBox("Verifieer voor de zekerheid het e-mailadres voordat de mail wordt verzonden!!! " & vbCrLf & vbCrLf & _
    "Ben je zeker dat je de mail wil verzenden? ", vbYesNo) Then Exit Sub
    If vbNo = MsgBox("Heb je IBM-notus open staan?", vbYesNo) Then Exit Sub
    If [Afspraakgemaakt] = "" Then [Afspraakgemaakt] = "De bevestiging is gemaild!"
    
    'Bijlage meesturen
    Const stPath As String = "C:\BEH\2. WAB onderzoeken\Instructies en voorbeelden"
    stFileName = "testbestand.xlsx" 'Bestandsnaam
    stAttachment = stPath & "\" & stFileName & ".xlsx" 'Pad
    
    vaRecipients = VBA.Array(Sheets("invulblad").Cells(5, 8).Value, Range("k16").Value)
    
    'Bepaal de IBM Notes COM's Objecten.
    Set noSession = CreateObject("Notes.NotesSession")
    Set noDatabase = noSession.GETDATABASE("", "")
                      
    'Als Lotus Notes niet open is open dan het mail-gedeelte ervan.
    If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
           
    'Maak de e-mail en de bijlage.
    Set noDocument = noDatabase.CreateDocument
    Set noAttachment = noDocument.CreateRichTextItem("stAttachment")
    
                                     
    'Voeg de gegevens toe aan de gemaakte e-mail eigenschappen.
    With noDocument
        .Form = "Memo"
        .SendTo = vaRecipients
        .CopyTo = vaCopyTo
        .Subject = stsubject
        .Body = vamsg
        .SaveMessageOnSend = True
        .PostedDate = Now()
        .Send 0, vaRecipients
    End With
                              
    'Verwijder objecten uit het geheugen.
    Set noEmbedObject = Nothing
    Set noAttachment = Nothing
    Set noDocument = Nothing
    Set noDatabase = Nothing
    Set noSession = Nothing
                      
    MsgBox "De e-mail is correct verstuurd ", vbInformation
    
    End Sub
    Wat gaat er niet goed in het rode gedeelte en/of het voorgaande hiervan?

    Alvast heel erg bedankt.

    Robert
    Laatst aangepast door Robert Smidt : 19 september 2019 om 10:03

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    De variabele stAttachment zal 2x .xlsx achter de bestandsnaam hebben staan.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Dank je voor jouw snelle reactie.

    Ik heb het nu gewijzigd in:

    Code:
    'Bijlage meesturen
    Const stPath As String = "C:\BEH\2. WAB onderzoeken\Instructies en voorbeelden"
    stFileName = "testbestand.xlsx" 'Bestandsnaam
    stAttachment = stPath & "\" & stFileName 'Pad
    Ook nu wordt het bestand niet meegestuurd.

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Ik ken Lotus Notes niet, dus daar kan ik verder helaas niet bij helpen.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    In ieder geval heel erg bedankt dat je mee hebt gedacht, ik hoop dat iemand anders hier nog even naar wil kijken.

  6. #6
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Maar de mail doet-ie verder wel?
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  7. #7
    Ja, hoor. Alleen de bijlage wordt niet meegestuurd.

  8. #8
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    Misschien moet je hier eens kijken, zie https://www.rondebruin.nl/win/s1/notes/notes4.htm
    En dan specifiek naar de regel
    Code:
    Set EmbedObject = obAttachment.EmbedObject(EMBED_ATTACHMENT, "", stAttachment)
    (die jij niet hebt) en de bijbehorende code

  9. #9
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Overigens hoort deze vraag natuurlijk niet in dit forum thuis; dit is geen voorbeeldje van een mooie applicatie. Wellicht een mooie taak voor de moderator om hem naar het VBA forum te verplaatsen?
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  10. #10
    Beste mensen,

    Ik heb de oplossing naar aanleiding van jullie aanwijzingen kunnen vinden. De volgende regel - zoals is opgemerkt door Alphamax - ontbrak in mijn code:
    Code:
    Set noEmbedObject = noAttachment.EmbedObject(EMBED_ATTACHMENT, "", stAttachment)
    Tot slot zie ik ook dat ik de vraag onder de verkeerde rubriek heb geplaatst, mijn verontschuldiging hiervoor.

    Nogmaals heel erg bedankt.

  11. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren