Aanpassen macro tbv mail versturen met bijlage

[peter59]

Hallo beste helpers

Ik tracht d.m.v. onderstaande macro een mail te versturen.
Maar bij het invoegen van de desbetreffende bijlage gaat het fout. Zie rode tekst kleur.
De code is oorspronkelijk van Ron de Bruin en geheel aangepast door Edmoor, dit in een ander topic.
Zelf heb ik hier nog enkele bijvoegingen gedaan zoals in "subject" en "SentOnBehalfOfName".
Dit werkt allemaal naar behoren maar helaas geen bijlage.
Ik hoop dat iemand mij verder kan helpen.

Private Sub CommandButton1_Click()
    Dim Bestand As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    Bestand = Environ("TEMP") & "\" & ActiveSheet.Name & ".pdf"
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Bestand
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "jan.meloen@gmail.com"
        .CC = ""
        .BCC = ""
        .Subject = "Planning tbv Jan Meloen"
        For Each cell In ThisWorkbook.Sheets("Tekst Email").Range("A1:A60")
        strbody = strbody & cell.Value & vbNewLine
        Next
        .Body = strbody
        [COLOR="#FF0000"].Attachments.Add wb.FullName[/COLOR]
        .SentOnBehalfOfName = "jan-janssen.janssen@kpnmail.nl"

        '.Send
        .Display
    End With
    Kill Bestand
End Sub

Mvg
Peter

 

[mvdvlist]

Probeer dit eens:

Private Sub CommandButton1_Click()
    Dim Bestand As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    Bestand = Environ("TEMP") & "\" & ActiveSheet.Name & ".pdf"
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Bestand
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "jan.meloen@gmail.com"
        .CC = ""
        .BCC = ""
        .Subject = "Planning tbv Jan Meloen"
        For Each cell In ThisWorkbook.Sheets("Tekst Email").Range("A1:A60")
        strbody = strbody & cell.Value & vbNewLine
        Next
        .Body = strbody
        .Attachments.Add Bestand
        .SentOnBehalfOfName = "jan-janssen.janssen@kpnmail.nl"

        '.Send
        .Display
    End With
    Kill Bestand
End Sub

 

[peter59]

Hallo mvdvlist

Dat is snel opgelost.
Had ik eigenlijk ook zelf kunnen zien.
Maar ja, als je er een tijd mee bezig bent zie je op het laatst de fout niet meer.
Dank voor de snelle oplossing.

Mvg
Peter

 

[mvdvlist]

We zijn allemaal mens...
Succes verder...

Maarten