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,

😉

 

[D10]

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

Non non, je suis sur Windows

 

[grisan29]

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]

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]

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]

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.

 

[D10]

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

Le problème qui se pose avec le dernier code que tu as posté est que le corps du message n'apparait pas.
Le mail du destinataire y est, l'objet y est, la signature outlook aussi, mais pas le corps du message.

 

[Lone-wolf]

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

Montre moi ton code pour voir ce qu'il cloche, pas celui que j'ai mis, mais le tien.

 

[D10]

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

Bah justement j'ai suivi le tiens 🙂

 

[Lone-wolf]

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

Alors essaie de faire un test avec un nouveau classeur et dit moi ce qu'il en est.

 

[D10]

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

j'ai tout fermé et là rien ne marche lol

 

[Lone-wolf]

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

Je ne comprend pas??

IL y a autre chose que tu à fait, à part de mettre ma macro, j'en suis sûr. Et dans ton cas, il faut redémarrer l'ordi.

 

[D10]

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

Ah vraiment je rajoute rien ! ^^ classeur vide, je mets juste la macro

 

[Bougla972]

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

Bonjour à tous !

Peut être une solution...

A+
Bougla

 

[Lone-wolf]

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

Bonjour Bougla 🙂

Une variante avec la fonction de Bougla. Pour le corps du message, faire Alt + Entrer pour espacer les textes.

Sub SendMail()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim Corps$, Fichier$, EnvoyerA$, Sujet$
   
   With Feuil1
   EnvoyerA = .Range("a2")
   Sujet = .Range("a4")
   Corps = .Range("a6")
   End With
   
   Fichier = ThisWorkbook.Path & "\adresse.txt"
   
   Set ol = New Outlook.Application
   Set olmail = ol.CreateItem(olMailItem)
   With olmail
      .To = EnvoyerA
      .Subject = Sujet
      .Body = Corps & vbCrLf & vbCrLf & vbCrLf & recuptxt(Fichier)
    .Display
    '.Send'Pour envoyer sans prévisualisation
   End With
End Sub

 

[grisan29]

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

bonsoir lone-wolf, d10 bougla972 et le forum

je n'ai peux pas compris sa demande mais avec notre ami g...le il en aurait trouvé des exemples comme celui-ci ou encore celui ci
mais aussi en bas du post il en a d'autres liens