Problème de signature lors d'envoie de mail par macro excel

[ninoulinou]

Bonjour.

J’ai besoin de votre aide.

J’utilise une macro dans excel 2003 pour envoyer un mail.

Par macro j’y insère du texte et ma signature.

Tout fonctionne si je décoche dans les options à format du courrier de outlook 2003 « utiliser microsoft office word 2003 pour modifier des messages électroniques »

Par contre si je laisse cette option coché, le mail que je crée par ma macro excel affiche dans le corps du mail que la signature.

Cette option je souhaite la garder coché.

Y a-t-il une astuce pour décocher cette option lorsque j’utilise ma macro et à la fin de ma macro cocher cette option ?

Merci.

 

[Compte Supprimé 979]

Re : Problème de signature lors d'envoie de mail par macro excel

Bonjour Ninoulinou et bienvenue sur ce forum 😉

Sans ton code ou même mieux le fichier, difficile de comprendre ton problème

A+

 

[ninoulinou]

Re : Problème de signature lors d'envoie de mail par macro excel

Bonjour BrunoM45

Autant pour moi j'aurais du mettre mon code

Ci joint mon code:

Public Sub EnvoiMailMicrosoftOutlook(Destinataire As String, DestinataireCopie As String, Objet As String, TexteMessage As String, FichierJoint As String)

'* Initialisation :
Dim MonOutlook As Outlook.Application
Dim MonMessage As Outlook.MailItem
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(olMailItem)

'* Préparation du message :
With MonMessage
.To = Destinataire
.CC = DestinataireCopie
.BCC = ""
.Subject = Objet
.HTMLBody = TexteMessage
.Display '* Affiche le message
End With

If FichierJoint = "" Then GoTo suite
MonMessage.Attachments.Add FichierJoint

suite:

'* Fermeture de la session Outlook :
Set MonOutlook = Nothing

End Sub

Sub Envoie_mail()

'* Déclaration des variables
Dim dest As String
Dim destcopie As String
Dim Obj As String
Dim texte As String
Dim Sign As String
Dim Sig As String
Dim Fich_joint As String

'* Destinataire du mail
dest = Sheets("Email").Range("B1")
destcopie = Sheets("Email").Range("B2")
'* Objet du mail
Obj = NomFichier_PDF
'* Texte du mail
texte = "Bonjour <BR><BR>"
texte = texte & "Ci-joint mon fichier <FONT COLOR=royalblue>" & ActiveSheet.Name & "</FONT><BR><BR>"
texte = texte & "Cordialement. <BR><BR>"

'* Signature du mail
nom = Application.UserName
Sig = "C:\Documents and Settings\" & nom & "\Application Data\Microsoft\Signatures\maSignature.htm"
If Dir(Sig) <> "" Then
Sign = GetBoiler(Sig)
Else
Sign = ""
End If

texte = texte & Sign

'* fichier à joindre
Fich_joint = Chemin_PDF & "\" & NomFichier_PDF & ".pdf"

Call EnvoiMailMicrosoftOutlook(dest, destcopie, Obj, texte, Fich_joint)

End Sub

Function GetBoiler(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

 

[Compte Supprimé 979]

Re : Problème de signature lors d'envoie de mail par macro excel

Bonjour Ninoulinou

Petite chose que j'avais oublié, j'ai Outlook 2010 et non 2003
je ne sais donc pas ou se trouve l'option "utiliser microsoft office word 20xx pour modifier des messages électroniques", si elle existe

En tout cas je n'ai pas de problème avec ton code

A+

 

[ninoulinou]

Re : Problème de signature lors d'envoie de mail par macro excel

Bonjour BrunoM45

L'option se trouve dans outlook : Outils-->Options onglet Format du courrier
Avec mon code tu as bien le texte + signature qui s'affiche ?

@+

 

[Compte Supprimé 979]

Re : Problème de signature lors d'envoie de mail par macro excel

Re,

L'option se trouve dans outlook : Outils-->Options onglet Format du courrier

Dans Outlook 2003, ok, mais j'ai le 2010

Sinon, oui sur 2010 ça fonctionne parfaitement : Texte + signature + PJ

A+

 

[ninoulinou]

Re : Problème de signature lors d'envoie de mail par macro excel

Merci quand même

Peux-tu me dire la différence entre oultook 2003 et 2010 ?

@+