Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Envoi Mail + Piece jointe Avec Messagerie par défaut

4 réponses
Avatar
jcl
Bonjour
Existe t'il une solution VB pour envoyer un Mail avec pièces jointes
associées en utilisant la messagerie par defaut

Toutes les solutions que je trouve ne me conviennent pas
Mailto: pièces jointes impossible
Utilisation de SendKey: pas acceptable
Achat de composants: je veux pouvoir envoyer sans avoir à aller chercher le
serveur SMTP ou l'adresse mail de l'envoyeur


Merci d'avvance

4 réponses

Avatar
Bob
Essaye ça, ça a marché du premier coup chez moi

Private Sub Command1_Click()

' Bouton envoyer le mail.
' text1 = adresse de l'expéditeur.
' text2 = adresse du destinataire.
' text3 = sujet du message.
' text4 = corps du message.
' text5 = chemin complet et nom de fichier de l'éventuelle pièce jointe.
' Check1 = si case cochée, envoi de la pièce jointe.

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or
Text4.Text="" Then
MsgBox "Veuillez remplir tous les champs SVP", vbExclamation, "Erreur"
Else
If Check1.Value = Checked And Text5.Text = "" Then
MsgBox "Veuillez entrer le chemin de la pièce jointe !",
vbExclamation, "Erreur"
Else
Set objEmail = CreateObject("CDO.Message")
objEmail.From = Text1.Text
objEmail.To = Text2.Text
objEmail.Subject = Text3.Text
objEmail.Textbody = Text4.Text
If Check1.Value = Checked Then
objEmail.AddAttachment Text5.Text
End If
objEmail.Send
End If
End If

End Sub


jcl a écrit :
Bonjour
Existe t'il une solution VB pour envoyer un Mail avec pièces jointes
associées en utilisant la messagerie par defaut

Toutes les solutions que je trouve ne me conviennent pas
Mailto: pièces jointes impossible
Utilisation de SendKey: pas acceptable
Achat de composants: je veux pouvoir envoyer sans avoir à aller chercher le
serveur SMTP ou l'adresse mail de l'envoyeur


Merci d'avvance




Avatar
ng
Salut,

En un mot : non.
Il faudrait déterminer d'abord la messagerie par défaut et toute ne sont pas
pilotables par automation.
Le plus simple et de procéder par SMTP (donc l'utilisateur devra configurer
le smtp et son adresse d'envoi dans votre appli).

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

jcl wrote:
Bonjour
Existe t'il une solution VB pour envoyer un Mail avec pièces jointes
associées en utilisant la messagerie par defaut

Toutes les solutions que je trouve ne me conviennent pas
Mailto: pièces jointes impossible
Utilisation de SendKey: pas acceptable
Achat de composants: je veux pouvoir envoyer sans avoir à aller
chercher le serveur SMTP ou l'adresse mail de l'envoyeur


Merci d'avvance


Avatar
Jiemji
bonsoir,

on peut le faire simplement avec MAPI.
il faut charger le composant mapi control msmapi32.ocx (je crois)

ensuite il faut poser les 2 objets session et messages. La doc msdn est
un peu succinte mais c assez facile à mettre en oeuvre.
Il y a un exemple nommé vbmail (prjMapi.vbp) dans le msdn.

Cela suppose par contre d'avoir Outlook ou un autre client mail
(thunderbird) configuré pour recevoir et se connecter (la messagerie par
défaut)

allez voir ce site http://abstractvb.com/code.asp?Aq3

cordialement,
Avatar
Linker
Salut,

Avec MAPI c'est hyper simple, si tu veux un exemple, va voir sur mon site
http://vbload.free.fr

Si tu veux le bout du code source, je peux te le passer.