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

[D10]

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]

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

Bonjour D10

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

 

[D10]

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]

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

Re,

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

 

[D10]

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]

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

Re,

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]

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]

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]

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.

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]

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]

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]

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]

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]

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]

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é.