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

D10

XLDnaute Junior
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,

;)
 
Dernière édition par un modérateur:

Lone-wolf

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

Bonjour D10

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

D10

XLDnaute Junior
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

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

Re,

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

D10

XLDnaute Junior
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 ? :confused:;)
 
Dernière édition par un modérateur:

Lone-wolf

XLDnaute Barbatruc
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

XLDnaute Junior
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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

XLDnaute Junior
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..
 
Dernière édition par un modérateur:

Lone-wolf

XLDnaute Barbatruc
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.


outlook.gif
 

Fichiers joints

Dernière édition:

D10

XLDnaute Junior
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

XLDnaute Barbatruc
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.
 
Dernière édition:

D10

XLDnaute Junior
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

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

D10

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

Non non, je suis sur Windows
 

grisan29

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

Bonjour lone-wolf, D10 et le forum
voici un code mettre une feuille au format .PDF et l'envoyer via outlook Envoyer un PDF via Outlook il se trouve dans le post du forum sous ma signarture
 

Lone-wolf

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

Bonjour Pascal :)

Je ne sais pas si tu à compris, mais notre ami veux dans le corps du message son adresse mail de la boîte Outllook.

@ D10: essaie alors de réparer Office, peut-être que...
 

D10

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

Mon office marche parfaitement, c'est juste le code qui déconne :)
 

Lone-wolf

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

RE,

tu l'as vu par toi même (en image) et je ne déconne pas, mon adresse est belle et bien inscrite dans le corps du message. Donc, il y a un problème soit avec Windows, soit avec Office. Pour ma part, c'est Win 10 64 bits.
 

Discussions similaires


Haut Bas