PDF genereren en klaarzetten in Outlook

[Evertblokdijk]

Goede dag allemaal,

Kan iemand mij helpen aan een marco om vanuit excel een pdf te genereren en deze klaar te zetten voor verzending als bijlage
in een outlook bericht

Zie bijgesloten tast case.

Alvast vriendelijk bedankt voor jullie feedback

Groeten
Evert

 

[VenA]

Misschien even de zoekfunctie gebruiken. Deze vraag komt ongeveer dagelijks voor. Of anders hier: https://www.rondebruin.nl/win/s1/outlook/mail.htm
Hoe staat het met jouw andere draadjes?

 

[edmoor]

Zo dus:

Sub Rechthoek1_Klikken()
    Dim Bestand As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    Bestand = Environ("TEMP") & "\" & Range("G7") & ".pdf"
    Range("C10:N33").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = Range("G4")
        .CC = Range("G5")
        .BCC = ""
        .Subject = Range("G7")
        .Attachments.Add Bestand
        .Display [COLOR="#008000"]' Of .Send of .Save[/COLOR]
    End With
End Sub

Maar je hebt geen logo's geplaatst, dus je voorbeeld is niet compleet.

 

[Evertblokdijk]

Fout 400 melding

Edmoor,

Dank je .. ben er bijna ..
Het origineel zit dus vol met formules waarvan de waarden worden weergegeven.

Ik krijg nu een error 400 melding

Zie bijlage voor aangepast bestand

Zou je hier eens naar willen kijken ?

Alvast bedankt !

 

[edmoor]

Doet het hier prima.

 

[Evertblokdijk]

Foutmelding

Ja, je hebt gelijk
Ik het test bestand wel

maar hier, op het blad waar ik he op wil toepassen, krijg ik dus een error 400 melding
heel vreemd dit !

Kan dit te maken hebben met de formules die in het origineel zitten ?
Dat de VBA eingelijk alleen maar de (alle) waarden moet kopieren ?

Dank je voor je reactie
P.S. .. wat jij als oplossing stuurde is wel een goede, makkelijke manier om dit probleem te tackelen

 

[Evertblokdijk]

Toevoegen Body

Edmoor,

heb jij misschien ook een idee hoe ik een Standaard text - BODY zou kunnen toevoegen ?

Dank je !

 

[edmoor]

Loop de code door ion debug mode met F8 en kijk welke regel het probleem veroorzaakt.

De body kan weer op meerder manieren, dus plaats een voorbeeld met wat precies je bedoeling is.
En wil je daar wel of niet de handtekening bij hebben?

 

[Evertblokdijk]

Fout Melding 400

Edmoor,

Ik heb dus JOUW macro overgenomen
met F8 krijk ik een foutmelding op :Sub RechthoekL_Klikken()

De tekst op de Body :
"Geachte klant,

Als bijlage onze factuur voor de werkzaamheden voor u verricht"

En dan inderdaad, met de Handtkening van het bedrijf er onder .. (staat Standaard als Handtkening in Outlook)

 

[edmoor]

In mijn macro staat geen Sub RechthoekL_Klikken() maar Sub Rechthoek1_Klikken()


En die handtekening is ook gewoon tekst?
Of HTML?
Met of zonder plaatjes(s)?

 

[Evertblokdijk]

Foutmelding 400

Edmoor.

Klopt ..
Hier krijg ik dus de fout op (met F8)

Sub Rechthoek1_Klikken()

Handtekening bevat een LOGO - .JPG
Dus graag met Logo !

Dank je voor alle moeite

 

[edmoor]

Dit:

Sub Rechthoek1_Klikken()
    Dim Bestand As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    Bestand = Environ("TEMP") & "\" & Range("G7") & ".pdf"
    Range("C10:N33").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
    Tekst = "Geachte klant,<br><br>Als bijlage onze factuur voor de werkzaamheden voor u verricht."
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .Display
        .To = Range("G4")
        .CC = Range("G5")
        .BCC = ""
        .Subject = Range("G7")
        .Attachments.Add Bestand
        .HTMLBody = Tekst & .HTMLBody
    End With
End Sub

Als je een fout krijgt op Sub Rechthoek1_Klikken() dan bestaat het object Rechthoek1 dus niet.

 

[Evertblokdijk]

Dank je wel

Edmoor,

Het is gelukt !
Het werkt perfect zo ..

Dank je wel voor je hulp !! ben hier echt mee geholpen !!

groeten
Evert