VBA et la messagerie

[joss56]

Bonsoir à tous,

Si je souhaite installer une application VBA qui permet (entre autres choses) d'envoyer des mails, suis-je condamné à utiliser Outlook ou Outlook Express exclusivement? Existe t-il une méthode "universelle" d'accès à un client messagerie, comme RDO peut-être?

Merci de vos réponses
Bonne soirée

Jocelyn

 

[Guest]

Re : VBA et la messagerie

Bonjour Joss,

Personnellement il m'arrive d'utiliser la bibliothèque CDO:
'Microsoft CDO For Exchange 2000 Library'

Sub EnvoyerMAil()
Dim msg As New CDO.Message
With msg
    .To = AdresseMail
    .Subject = "Test envoi avec CDO"
    .TextBody = "coucou c'est moi"
    .Send
End With
End Sub

Il faut l'avoir sur l'ordi bien-sûr. A vérifier dans menu outils/références de VBE.

A+

 

[JCGL]

Re : VBA et la messagerie

Bonjour à tous,

Avec Thunderbird, j'utilise .SendMail natif dans VBA 6

Aide VBA :
Cette méthode envoie le classeur en utilisant le système de messagerie installé.

expression.SendMail(Recipients, Subject, ReturnReceipt)
expression Obligatoire. Expression qui renvoie un objet Workbook.

Recipients Argument de type Variant obligatoire. Spécifie le nom du destinataire sous la forme de texte ou, s'il y a plusieurs destinataires, d'un tableau de chaînes de caractères. Vous devez spécifier au moins un destinataire, et tous les autres sont ajoutés dans la liste « À ».

Subject Argument de type Variant facultatif. Spécifie le sujet du message. Si vous ne spécifiez pas cet argument, le nom du document est utilisé.

ReturnReceipt Argument de type Variant facultatif. Affectez-lui la valeur True pour exiger un accusé de réception et la valeur False dans le cas contraire. La valeur par défaut est False.

A+

Edition : Salut Hasco ;-)

 

[joss56]

Re : VBA et la messagerie

Re Hasco, JCGL

Merci à tous les 2. Je vais tester les 2 méthodes et ne manquerai pas de revenir vers vous si ça coince...!!!
Merci encore et bonne soirée

Jocelyn

 

[joss56]

Re : VBA et la messagerie

Re, Hasco

J'ai essayé avec CDO. J'ai une erreur "La valeur de configuration de SendUsing est non valide"
Ce n'est pas une clé du registre qu'il faudrait changer à tout hasard?

Jocelyn

 

[Guest]

Re : VBA et la messagerie

Re Joss,
JC🙂

Je ne peux pas te répondre, personellement je n'ai jamais rencontrer de problème avec CDO. Mais ne suis pas un spécialiste.

Bon courage, en espérant que tu trouveras réponse.

A+

 

[joss56]

Re : VBA et la messagerie

Ok, merci je vais chercher.
Bon week-end

Jocelyn

 

[JCGL]

Re : VBA et la messagerie

Bonjour à tous,


Essaye avec :

Option Explicit

Sub EnvoiCourriel()
ActiveWorkbook.SendMail Recipients:=Sheets("F1").Range("B3")
End Sub

L'adresse de messagerie en 'B3' de la feuille 'F1' pour mon exemple

A+

 

[joss56]

Re : VBA et la messagerie

Re JCGL

ça marche impec, mais si je veux envoyer juste un message et pas une feuille de calcul?

 

[JCGL]

Re : VBA et la messagerie

Bonjour à tous,

Avec quel client de messagerie souhaites tu envoyer ton message ?

A+

 

[joss56]

Re : VBA et la messagerie

et bien justement, je ne sais pas a priori. Mais à mon avis il y aura 2 possibilités: soit les 2 outlook soit directement le fai

 

[JCGL]

Re : VBA et la messagerie

Bonjour à tous,

Un fichier avec un code de MichelXLD, je crois...

Permet de "grouper" par catégories pour un même message

A+

 

[joss56]

Re : VBA et la messagerie

Merci, je regarde tout ça
Bonne soirée et bon we

Jocelyn