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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anacoluthe
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
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 =moi@skynet.be
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 = "moi@skynet.be"
.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
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
