Pdf bestand meesturen met mail

[Sjaakz]

Dames heren,

Hoe kan ik een pdf meesturen met een mailbericht.

Via een code verstrek ik opdrachten vanuit Excel. Bij deze mailtjes wil ik nu een extra pdf bestand toevoegen.

Kan dit? en zo ja dan zoek ik alleen de code voor het invoegen. Het selecteren van het betreffende bestand lukt me wel.


Alvast bedankt voor het snelle antwoord

Groet SjaakZ

 

[OctaFish]

Die vraag komt echt heel vaak langs .

     .Attachments.Add Bestandsnaam

toevoegen aan de rest van je mail procedure.

 

[Sjaakz]

Hoi bedankt Ocktafish voor je antwoord.:thumb:

Dit is mijn code Waarbij e5 de geadresseerde is en c9 het onderwerp

ActiveWorkbook.SendMail. Range("e5").Value , _
                                                  Range("c9").Value

Hoe en waar moet ik dit aanvullen.

Bedankt voor je antwoord

 

[edmoor]

Wat OctaFish zegt klopt, maar dat geldt voor het gebruik van Outlook. Met Workbook.SendMail kan je geen bijlagen sturen.

Kijk eens hier:
http://www.rondebruin.nl/win/section1.htm

 

[gober]

code mail via outlook

Sub Mail_workbook_Outlook()

    Dim OutApp As Object
    Dim OutMail As Object
On Error GoTo getout

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    'On Error Resume Next
    With OutMail
        .To = Range("G8").Value
        .CC = ""
        .BCC = ""
        .Subject = "Hierbij uw factuur"
        .Body = "Geachte " & Range("A10").Value & vbCrLf & vbCrLf & "Hierbij uw factuur met nr: " & Range("G4").Value _
        & vbCrLf & "Het totaal bedrag van deze factuur is: " & Range("G39").Value & " Euro" & vbCrLf & vbCrLf & "Met vriendelijke groet: " & Range("A1").Value & vbCrLf
        
        .Attachments.Add (Range("T2").Value & "\" & Range("G4").Value & "_" & Range("A10").Value & ".pdf") 'T2 =bestands pad en range g4 en g10 vormen de naam van het bestand
        .display 'or use .Display
        ''.Send   'or use .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
    MsgBox ("E-mail verzonden")
    Exit Sub
getout:
    MsgBox ("Er is een fout opgetreden is er wel een geldig e-mail adres ingevuld? En staat outlook op de computer? Zijn de bestandspaden wel juist?")
End Sub

 

[HSV]

Zonder Outlook heb je nog een mogelijkheid waar het wel mee kan.

Sub hsv()
ThisWorkbook.EnvelopeVisible = true
 With Sheets(1).MailEnvelope
   .Introduction = "Dit is een voorbeeld pdfje."
   .Item.To = "naam@gmail.com"
   .Item.Subject = "Mijn onderwerp"
   .Item.attachments.Add "C:\Users\Sjaakz\documents\Pdf\voorbeeld.pdf"
   .Item.send
 End With
End Sub

 

[Sjaakz]

:thumb:Goedemorgen heren / dames,

Bedankt voor de antwoorden het is dus niet zomaar een code aanvullen voor mij, maar aanpassen.
Hier ga ik vanmiddag zodra het rustiger is even mee stoeien maar ben ervan overtuigd dat het gaat lukken.

Nogmaals Bedankt :thumb::thumb::thumb:

 

[Sjaakz]

HVS of iemand anders graag nog wat aanvulling

HVS of iemand anders,

Bedankt :thumb: hier kan ik al wat mee maar wil je vragen of het nog wat netter kan

Naast de introductie "Dit is een voorbeeld pdfje."

Komt ook het complete huidige werkblad in de body

Kan dat ook een bepaalde range zijn zeg a1.. b10

Dit heb ik er van gemaakt

Sub Macro1()
'
' Macro1 Macro
'

ThisWorkbook.EnvelopeVisible = True
 With Sheets(1).MailEnvelope
   .Introduction = "Dit is een voorbeeld pdfje."
   .Item.To = Range("e5").Value
   .Item.Subject = Range("c9").Value
   .Item.attachments.Add Range("h2").Value
   .Item.send
 End With
End Sub

Waarbij e5 de geadresseerde is
c9 het onderwerp
h2 het in te voegen document

Alvast bedankt

Groet Sjaakz

 

[HSV]

Volgens een site van @Ron de bruin moet ik mij vergist hebben dat Mailenvelope zou werken zonder Outlook.
Zo te vernemen heb je dan toch Outlook geïnstalleerd.

Ga dan aan de slag met de code van @gober.
Kom je daar niet uit, plaats dan het bestand met wat er moet gebeuren.