Handtekening plaatsen in email.

[Scallebe]

Beste ontwikkelaars

Na het uitvoeren van de VBA code wordt er automatisch een mail geopend met het bestand als bijlage. Zie code.

With CreateObject("Outlook.Application").CreateItem(0)
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Overzicht CCF tewerkgesteld in het HMKA"
    .Body = ""
    .Attachments.Add (ActiveWorkbook.FullName)
    .display '.Send of .DISPLAY
    End With

Nu zou ik mijn Outlook handtekening in deze mail willen hebben. Outlook is zodanig ingesteld dat bij alle mails (nieuwe, doorsturen, antwoorden...) mijn handtekening onderaan de mail geplaats wordt.

Wanneer de mail opstart in de code is er geen handtekening te zien.

Hoe moet dit geformuleerd worden in de code? Ergens in .Body = .... ?


Alvast bedankt

Greetz

Pascal

 

[edmoor]

Dat is een paar dagen geleden ook behandeld. Er moet een extra .Display in komen om ervoor te zorgen dat de handtekening er automatisch in komt te staan:

With CreateObject("Outlook.Application").CreateItem(0)
    [COLOR="#FF0000"].Display[/COLOR]
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Overzicht CCF tewerkgesteld in het HMKA"
    .Body = ""
    .Attachments.Add (ActiveWorkbook.FullName)
    .Display '.Send of .DISPLAY
End With

 

[Scallebe]

Edmoor,

Ik had nu even niet de moeite gedaan om op het forum te gaan zoeken.

Bedankt voor de oplossing.

Groetjes

Pascal

 

[Scallebe]

Geen handtekening

Edmoor,

Ik heb de code aangepast maar mijn handtekening komt niet te voorschijn.

With CreateObject("Outlook.Application").CreateItem(0)
    .Display
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Overzicht CCF tewerkgesteld in het HMKA"
    .Body = ""
    .Attachments.Add (ActiveWorkbook.FullName)
    .Display '.Send of .DISPLAY
    End With

Greetz

Pascal

 

[edmoor]

Doe het eens zo:

With CreateObject("Outlook.Application").CreateItem(0)
    .Display
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Overzicht CCF tewerkgesteld in het HMKA"
    [COLOR="#FF0000"].HTMLBody = "Test regeltje" & .HTMLBody[/COLOR]
    .Attachments.Add (ActiveWorkbook.FullName)
    .Display '.Send of .DISPLAY
End With

 

[Scallebe]

Edmoor,

That's it.

Bedankt

Greetz

Pascal