Problème Envoi mail + signature par Outlook via code VBA

D10 · 28 Avril 2016

Bonjour,

Je souhaiterais à partir d'un code VBA, envoyer un mail via Outlook. Et je veux que ce mail contienne ma signature enregistrée dans Outlook par défaut.

Voici le code:

Sub mail()

Dim OApp As Object, OMail As Object, signature As String
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)

With OMail

.Display
.To = "someone@somedomain.com"
.Subject = "Type your email subject here"
'.Attachments.Add
signature = OMail.Body
.Body = "Add body text here" & vbNewLine & signature
'.Send

End With
Set OMail = Nothing
Set OApp = Nothing

End Sub

Mais soit j'ai la signature sans le corps du mail, soit j'ai le corps du mail mais sans la sign'

Ayant déjà cherché partout, j'en viens donc à créer un énième poste sur le sujet en espérant trouver une solution.

Merci d'avance,

Lone-wolf · 28 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Bonjour D10

Au lieu de signature = OMail.Body, met signature = Application.Username

D10 · 28 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Merci beaucoup ça fonctionne.
ça me met juste mon nom et prénom.

Et si je veux être plus pointilleux, est-il possible d'avoir ma vraie signature Outlook (comme si j'envoyais un mail depuis Outlook directement) ?

Merci encore

Lone-wolf · 28 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Re,

dans ce cas: signature = OApp.Session.CurrentUser.Address

D10 · 28 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Je n'ai plus le corps du message maintenant, mais j'ai la signature voulue
Que faire ?

Lone-wolf · 28 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Re,

Code:

Sub mail()

Dim OApp As Object, OMail As Object, signature As String
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)

signature = OApp.Session.CurrentUser.Address 

With OMail
.To = "someone@somedomain.com"
.Subject = "Type your email subject here"
.Body = "Add body text here" & vbNewLine & signature
'.Attachments.Add
.Display
'.Send
End With
Set OMail = Nothing
Set OApp = Nothing
End Sub

D10 · 28 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Merci, mais maintenant j'ai plus rien qui marche, ça bloque à la ligne
signature = OApp.Session.CurrentUser.Address

Lone-wolf · 28 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Re,

je ne comprends pas. J'ai testé la première fois, pas de soucis et maintenant ça cause problème. Là je suis entrain de regarder, patience.

Lone-wolf · 28 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Re,

voici la macro corrigée et c'était tout bête comme tu peux le voir. Donc pour avoir l'adresse email, il faut avoir Outlook ouvert.

Code:

Sub mail()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim corps, signature

Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(olMailItem)

corps = "Good Morning, " & vbCrLf _
 & vbCrLf & "Add body text here" & vbCrLf _
 & vbCrLf & vbCrLf

With olMail
.To = "someone@somedomain.com"
.Subject = "Type your email subject here"
'.Attachments.Add
.Display
signature = olApp.Session.CurrentUser.Address
.Body = corps & signature
End With
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

D10 · 29 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Encore merci

Avec le code proposé, je n'ai plus le corps du message encore une fois mais j'ai bien ma signature Outlook..

Lone-wolf · 29 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

RE D10

Avec la dernière macro, ouvre Outlook et tu réduit la fenêtre; ensuite tu lance la macro. Si besoin est, affiche la fenêtre du message et clique dedans.

D10 · 29 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

c'est ce que j'ai fait, je n'ai pas le corps du texte, juste la signature :/

Lone-wolf · 29 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Re

Essaie alors comme ceci

.Display
signature = olApp.Session.CurrentUser.Address
.Body = "Add body text here" & vbCrLf & vbCrLf & signature

Autrement, je ne sais pas.

D10 · 29 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Toujours pas, merci quand même.

Si quelqu'un a une idée ça serait cool

Lone-wolf · 29 Avril 2016

Re : Problème Envoi mail + signature par Outlook via code VBA

Re

Est-ce que tu es sur MAC ou PC? Si c'est sur MAC, je ne suis pas étonné.

Problème Envoi mail + signature par Outlook via code VBA

D10

XLDnaute Junior

Lone-wolf

XLDnaute Barbatruc

D10

XLDnaute Junior

Lone-wolf

XLDnaute Barbatruc

D10

XLDnaute Junior

Lone-wolf

XLDnaute Barbatruc

D10

XLDnaute Junior

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

D10

XLDnaute Junior

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

D10

XLDnaute Junior

Lone-wolf

XLDnaute Barbatruc

D10

XLDnaute Junior

Lone-wolf

XLDnaute Barbatruc

Discussions similaires