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

Lone-wolf

XLDnaute Barbatruc

• 28 Avril 2016

• #2

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

Bonjour D10

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

 

Vote positif 0 Vote négatif

D

D10

XLDnaute Junior

• 28 Avril 2016

• #3

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 😉

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 28 Avril 2016

• #4

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

Re,

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

 

Vote positif 0 Vote négatif

D

D10

XLDnaute Junior

• 28 Avril 2016

• #5

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 ? 😕😉

 

Dernière modification par un modérateur: 28 Avril 2016

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 28 Avril 2016

• #6

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

 

Vote positif 0 Vote négatif

D

D10

XLDnaute Junior

• 28 Avril 2016

• #7

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 🙁

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 28 Avril 2016

• #8

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.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 28 Avril 2016

• #9

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

 

Vote positif 0 Vote négatif

D

D10

XLDnaute Junior

• 29 Avril 2016

• #10

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 modification par un modérateur: 29 Avril 2016

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 29 Avril 2016

• #11

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.

 

Pièces jointes

• 
  outlook.gif

  20.1 KB · Affichages: 76

Dernière édition: 29 Avril 2016

Vote positif 0 Vote négatif

D

D10

XLDnaute Junior

• 29 Avril 2016

• #12

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 :/

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 29 Avril 2016

• #13

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: 29 Avril 2016

Vote positif 0 Vote négatif

D

D10

XLDnaute Junior

• 29 Avril 2016

• #14

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 🙂

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 29 Avril 2016

• #15

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

 

Vote positif 0 Vote négatif