Excel opslaan als pdf en mailen met begeleidende tekst

[Manusje]

Goedemorgen,

Via het forum heb ik de VBA regels gevonden, en aangepast, om een excel op te slaan als pdf en daarnaast deze te kunnen mailen.
In de bijlage de VBA hiervan.
Ik heb inmiddels van alles geprobeerd om ook een stukje tekst in de body te krijgen van de mail, maar dat krijg ik niet voor elkaar.

Wie kan mij hiermee helpen.

Alvast bedankt,
Groet,
Jan

#2
Nu met het exceld ocument uitgekleed.
Groet,
Jan

 

[edmoor]

De tekst uit AE14 komt hier keurig in de body van de mail te staan.

 

[Manusje]

Dag Edmoor,

Dat klopt, alleen de tekst wel samengevoegd wordt in AE14.
De bedoeling is dat er meer regels tekst komen.

Als voorbeeld:

Geachte relatie,

In de bijlage de factuur van maand...
Uw betaling zien wij graag tegemoet voor [datum + 28 dagen]
Dank voor uw bestelling.

Met vriendelijke groet,
FW

Ik heb van alles geprobeerd, maar krijg dit niet voor elkaar.

Groet,
Jan

 

[edmoor]

Dat had je er niet bij verteld:

[COLOR="#FF0000"]BodyTekst = ""Geachte relatie," & vbCrLf & vbCrLf & [AE14] & vbCrLf & _
       "Uw betaling zien wij graag tegemoet voor " & Date + 28 & vbCrLf & _
       "Dank voor uw bestelling." & vbCrLf & vbCrLf & _
       "Met vriendelijke groet," & vbCrLf & _
       "FW"[/COLOR]
  
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmailObj = xOutlookObj.CreateItem(0)
    With xEmailObj
        .Display
        .To = [AC2]
        .CC = [AC3]
        .Subject = Filename
        .Body = [COLOR="#FF0000"]BodyTekst[/COLOR]
        .Attachments.Add xFolder
End With

Dat kan je uiteraard naar wens aanpassen.

 

[Manusje]

Goedemorgen Edmoor,

Je hebt gelijk, ik was niet duidelijk in de vraagstelling.
Soms loop je vast in de denkwijze van het project, dat sommige zaken te logisch worden.

Bedankt voor de code.
Ik heb hem kunnen gebruiken om deze naar wens aan te kunnen passen door gebruiker.
Hiervoor heb ik cellen benoemd om de tekst in te kunnen plaatsen, i.p.v. tekst in de VBA.

Groet,
Jan

 

[edmoor]

Er zijn meerdere mogelijkheden.
Zo kan je ook HTML gebruiken middels de functie van Ron de Bruin: RangeToHTML.
https://www.rondebruin.nl/win/s1/outlook/bmail2.htm

Dan kan je ook een mooi opgemaakte handtekening in de mail opnemen.

 

[Manusje]

Dag Edmoor,

Bedankt voor de tip.

Ik ga hier binnenkort mee aan de slag.

Groet,
Jan