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,

D10 · 29 Avril 2016

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

Non non, je suis sur Windows

grisan29 · 29 Avril 2016

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

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

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

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

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

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

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

Bah justement j'ai suivi le tiens

Lone-wolf · 29 Avril 2016

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

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

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

Lone-wolf · 29 Avril 2016

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

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

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

Bougla972 · 29 Avril 2016

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

Bonjour à tous !

Peut être une solution...

A+
Bougla

Lone-wolf · 29 Avril 2016

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.

Code:

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

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

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

D10

XLDnaute Junior

D10

XLDnaute Junior

grisan29

XLDnaute Accro

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

D10

XLDnaute Junior

Lone-wolf

XLDnaute Barbatruc

D10

XLDnaute Junior

Bougla972

XLDnaute Occasionnel

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

grisan29

XLDnaute Accro

Discussions similaires