Rajouter un code pour la signature à ma macro d'envoi de mail via excel

[ordaz75]

Bonjour le forum !

J'ai un soucis au niveau de mon code je n'arrive pas à inserer une signature a la fin de mon mail... Quelqu'un connait le code ? je ne trouve rien sur la signature d'un mail.

Private Sub CommandButton1_Click()
Dim OutApp As Object, OutMail As Object, Fichier$
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
ActiveSheet.Copy
Fichier = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx"
ActiveWorkbook.SaveCopyAs Fichier
On Error Resume Next
With OutMail
.to = "ordaz75@lol.com"
.Subject = "Tableau"
.Body = "Bonjour"
.Attachments.Add Fichier
.Display 'pour voir et modifier ou envoyer
'.Send 'Pour envoyer directement
End With
On Error GoTo 0
ActiveWorkbook.Close 0
Kill Fichier
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Merci d'avance

 

[camarchepas]

Re : Rajouter un code pour la signature à ma macro d'envoi de mail via excel

Bonjour ,

Pour moi le code fonctionne trés bien,
il faut juste avoir la session outlook ouverte sous le compte mail désiré

 

[camarchepas]

Re : Rajouter un code pour la signature à ma macro d'envoi de mail via excel

Oups , si c'est pour l'affectation signature ,
voici la doc Microsoft :

Set objSignature = New Signature
varSigline = CType(AxHost2.GetIPictureDispFromPicture(img),IPictureDisp)
varSuggestedSigner = "Nancy Davolio"
varSignatureTitle = "Sales Represenative"
varSignerEmail = "ndavolio@northwindtraders.com"
objSignature.Sign(varSigline, varSuggestedSigner, varSignatureTitle, varSignerEmail)

 

[ordaz75]

Re : Rajouter un code pour la signature à ma macro d'envoi de mail via excel

Bonjour et merci de ta réponse !

Oui en effet le code fonctionne il y a pas de soucis mais je voulais inserer dans ma macro l'affectation de ma signature.
Je recopie ton code a la suite de ma macro pour avoir la signature ?

j'ai essayé d’insérer ton code mais cela ne fonctionne pas

 

[ordaz75]

Re : Rajouter un code pour la signature à ma macro d'envoi de mail via excel

personne ?

 

[camarchepas]

Re : Rajouter un code pour la signature à ma macro d'envoi de mail via excel

un peu moins outlook ,
mais comme ça ça fonctionne

Private Sub CommandButton1_Click()
Dim OutApp As Object, OutMail As Object, Fichier$
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

ActiveSheet.Copy
Fichier = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx"
ActiveWorkbook.SaveCopyAs Fichier
On Error Resume Next
With OutMail
.to = "ordaz75@lol.com"
.Subject = "Tableau"
.Body = "Bonjour" & vbCrLf & vbCrLf & "Cordialement," & vbCrLf & vbCrLf & "ton nom"
.Attachments.Add Fichier
.Display 'pour voir et modifier ou envoyer
'.Send 'Pour envoyer directement
End With
On Error GoTo 0
ActiveWorkbook.Close 0
Kill Fichier
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[ordaz75]

Re : Rajouter un code pour la signature à ma macro d'envoi de mail via excel

Un grand merci sa fera parfaitement l'affaire !!!!