Envoi mail par OE ou MSO

Le
claudy
Re bonjour,
quel code vba, pour envoyer un mail avec OE ou MSO ?
Ce code serait attaché à un bouton dans un USF.
Subject="Test"
Destinataire =moi@skynet.be
Body= "Ceci est un test"
Merci d'avance,
Claudy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Anacoluthe
Le #1747146
Bonjour !

'claudy' nous a écrit ...
Re bonjour,
quel code vba, pour envoyer un mail avec OE ou MSO ?
Ce code serait attaché à un bouton dans un USF.
Subject="Test"
Destinataire =
Body= "Ceci est un test"


Pour toutes les opérations d'email Word ne fait qu'utiliser
le client de messagerie par défaut. Le vba de Word ne possède
pratiquement pas de fonction dédiée interne. Depuis vba on peut
évidemment utiliser toutes sortes de bibliothèques externes et
surtout piloter facilement Outlook en Automation. OE n'est
pas accessible en Automation. Il faut utiliser les fonctions
MAPI ou CDO :

Sub EmailCDO()
' Référencez CDO dans VBE !
Dim monMessage As New cdo.Message
With monMessage
.Subject = "Test"
.To = ""
.TextBody = "Ceci est un test"
.Send
End With
Set monMessage = Nothing
End Sub

Anacoluthe
« On ne trouva jamais meilleur messager que soi-même. »
- Proverbe français

Publicité
Poster une réponse
Anonyme