Envoi Mail + Piece jointe Avec Messagerie par défaut
4 réponses
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
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
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
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
' 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
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).
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
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
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).
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
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)
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
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)