Mais comment lancer avec adresse email contenu dans un champ Du genre mailto: dans la fenetre exécuter ?
Merci a tous
Eric
DJ
Eric Bonnemains wrote:
Mais comment lancer avec adresse email contenu dans un champ Du genre mailto: dans la fenetre exécuter ?
Merci a tous
Eric
Bonjour, Ce serait olus facile si tu savais a peu pres ce que tu veux faire..... :-) Donc c'est pas "lancer outlook" que tu veux mais envoyer un mail automatiquement ?
de nombreux post son deja passé sur ce sujet , pour ca google est ton ami
et voila un bout de code, (dans du VB6 mais ca devrait marcher en vbs access aussi) que envoie un mail Outlook automatiquement: avec piece jointe. DJ
Dim objOL As Object Dim olmailitem, myMail, myAttachments Set objOL = CreateObject("outlook.application") Set myMail = objOL.createitem(olmailitem) With myMail .To = ** adresse mail du desti ** .CC = ** adresse mail en copie ** .Subject = "Titre du message" .body = " corp du message" Set myAttachments = .Attachments myAttachments.Add Tmp, 1, 500, **chemin/nom de la piece jointe*** myMail.Send
Eric Bonnemains wrote:
Mais comment lancer avec adresse email contenu dans un champ
Du genre mailto:eric@toto.com dans la fenetre exécuter ?
Merci a tous
Eric
Bonjour,
Ce serait olus facile si tu savais a peu pres ce que tu veux faire..... :-)
Donc c'est pas "lancer outlook" que tu veux mais envoyer un mail
automatiquement ?
de nombreux post son deja passé sur ce sujet , pour ca google est ton ami
et voila un bout de code, (dans du VB6 mais ca devrait marcher en vbs
access aussi) que envoie un mail Outlook automatiquement: avec piece jointe.
DJ
Dim objOL As Object
Dim olmailitem, myMail, myAttachments
Set objOL = CreateObject("outlook.application")
Set myMail = objOL.createitem(olmailitem)
With myMail
.To = ** adresse mail du desti **
.CC = ** adresse mail en copie **
.Subject = "Titre du message"
.body = " corp du message"
Set myAttachments = .Attachments
myAttachments.Add Tmp, 1, 500, **chemin/nom de la piece jointe***
myMail.Send
Mais comment lancer avec adresse email contenu dans un champ Du genre mailto: dans la fenetre exécuter ?
Merci a tous
Eric
Bonjour, Ce serait olus facile si tu savais a peu pres ce que tu veux faire..... :-) Donc c'est pas "lancer outlook" que tu veux mais envoyer un mail automatiquement ?
de nombreux post son deja passé sur ce sujet , pour ca google est ton ami
et voila un bout de code, (dans du VB6 mais ca devrait marcher en vbs access aussi) que envoie un mail Outlook automatiquement: avec piece jointe. DJ
Dim objOL As Object Dim olmailitem, myMail, myAttachments Set objOL = CreateObject("outlook.application") Set myMail = objOL.createitem(olmailitem) With myMail .To = ** adresse mail du desti ** .CC = ** adresse mail en copie ** .Subject = "Titre du message" .body = " corp du message" Set myAttachments = .Attachments myAttachments.Add Tmp, 1, 500, **chemin/nom de la piece jointe*** myMail.Send