E-mail automatique avec signature par défaut? Résolu/Fermé

Question

Bonjour, j'ai travaillé sur ca toute l'après midi, j'ai réussi a faire mon courriel automatique, mais tout ce qu'il manque c'est ma signature par défaut de Outlook, elle ne s'ajoute pas a mon mail.

Comme on va être plusieurs a utiliser cette BDD elle doit vraiment prendre la signature par défaut de Outlook de l'utilisateur qui est différente pour chaque employés

en cherchant sur le net j'ai bien trouvé et ajouter  ca : "& vbNewLine & strSignature" mais rien a faire.

qu'est qu'il me manque?

Merci :)

Function openOulook() As Boolean
Dim objOutlook As Object, objOutlookMsg As Object
Dim strSignature As String
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)

With objOutlookMsg
    .to = Me.email_a
    .cc = Me.email_B
    .Subject = Me.sujet
    .Body = Me.[e-mail_texte] & vbNewLine & strSignature
    .Display
End With
End Function

Windows / Chrome 108.0.0.0

yg_be · Answer

bonjour,

Quand tu partages du code VBA, peux-tu choisir "Basic" comme langage?  Cela s'affiche alors mieux sur ce forum.

Je pense que la signature est présente au départ dans le message, et que ton code la fait disparaitre.

Pour confirmer cela, peux-tu tester en mettant en commentaire la ligne ".Body = ..." ?

bibimtl2x · Answer

1-:Quand tu partages du code VBA, peux-tu choisir "Basic" comme langage?  Cela s'affiche alors mieux sur ce forum. > C'est notté :)

2-: en effet en ajouter le " ' "   pour en faire un commentaire ma signatire est bien la..

'.Body = Me.[e-mail_texte]

mais que faire pour avoir le "body" de mon mail qui est dans la champs 
Me.[e-mail_texte] ?

Merci :)

bibimtl2x · Answer

Bingo :) ca : strSignature = .HTMLBody .HTMLBody = Me.[e-mail_texte] & vbNewLine & strSignature ca marche mais ca "et vbnewline par "
"." c'était refusé :) Donc au final le code total est : Function openOulook() As Boolean Dim objOutlook As Object, objOutlookMsg As Object Dim strSignature As String Set objOutlook = CreateObject("Outlook.Application") Set objOutlookMsg = objOutlook.CreateItem(0) With objOutlookMsg .to = Me.email_a .cc = Me.email_B .Subject = Me.sujet .Display strSignature = .HTMLBody .HTMLBody = Me.[e-mail_texte] & vbNewLine & strSignature End With End Function merci!!! :)

E-mail automatique avec signature par défaut?

3 réponses

Discussions similaires