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

  • Initiateur de la discussion Initiateur de la discussion D10
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 modification par un modérateur:
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...
 
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.
 
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.
 
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
 
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
622
Réponses
2
Affichages
691
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
365
Retour