vinvinsylvain
Messages postés36Date d'inscriptiondimanche 8 octobre 2006StatutMembreDernière intervention12 mars 2010
-
21 janv. 2009 à 18:39
vinvinsylvain
Messages postés36Date d'inscriptiondimanche 8 octobre 2006StatutMembreDernière intervention12 mars 2010
-
27 janv. 2009 à 13:36
Bonjour a tous,
Voilà mon problème, j'ai réusi a trouver (par le forum) le code qui me permet d'envoyer un email:
emailsubject = "Rapport des évènements du " & Date 'Demande du sujet du message
emailmsg = "Bonjour," & "veuillez trouver ci-joint le rapport des évènements qui nous ont étés communiqué"
emaildest = "???????????????????@free.fr" 'Demande de l'adresse email
Dim ObjOutl As Object 'Déclaration des objets
Dim objSession As Object
Set ObjOutl = CreateObject("Outlook.Application") 'Création de l'objet Outlook
Set objSession = ObjOutl.GetNamespace("MAPI") 'Création de l'objet de gestion des message
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message
objSession.Logon 'Connection à Outlook
With ObjMessage
.To = emaildest
.CC = ""
.Subject = emailsubject
.Body = emailmsg
.Attachments.Add "c:\Rapport de Police\Base de donnée Adresse.txt"
.Send
End With
'Suppression des objets (Vidage)
Set ObjMessage = Nothing
objSession.Logoff
Set objSession = Nothing
Set ObjOutl = Nothing
Mon souci maintenant s'est que j'ai une form avec des textbox et combo, et je voudrais savoir comment fait on pour que les saisies des textbox et combo soit mis dans le message de l'email l'un a la suite de l'autre.
vinvinsylvain
Messages postés36Date d'inscriptiondimanche 8 octobre 2006StatutMembreDernière intervention12 mars 2010 27 janv. 2009 à 13:36
Private Sub Command6_Click()
'contenu du presse papier
emailsubject = "Rapport des évènements du " & Date 'Demande du sujet du message
emailmsg = "Bonjour," & Chr$(13) & "veuillez trouver ci-dessou le rapport des évènements qui nous ont étés communiqué" & Chr$(13) & Chr$(13) & Form1!lab1 & Chr$(13) & Form1!lab2 & Chr$(13) & Form1!lab3 & Chr$(13) & Form1!lab4 & Chr$(13) & Form1!lab5 'Demande du contenu du message
emaildest = "µµµµµµµµµµµµµµµµ" 'Mettre l'adresse email
Dim ObjOutl As Object 'Déclaration des objets
Dim objSession As Object
Set ObjOutl = CreateObject("Outlook.Application") 'Création de l'objet Outlook
Set objSession = ObjOutl.GetNamespace("MAPI") 'Création de l'objet de gestion des message
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message
objSession.Logon 'Connection à Outlook
With ObjMessage
.To = emaildest
.CC = ""
.Subject = emailsubject
.Body = emailmsg
.Attachments.Add "" 'fichier qui peux etre joind
.Send
End With
'Suppression des objets (Vidage)
Set ObjMessage = Nothing
objSession.Logoff
Set objSession = Nothing
Set ObjOutl = Nothing
kokise
Messages postés120Date d'inscriptionjeudi 5 mai 2005StatutMembreDernière intervention21 décembre 2017 21 janv. 2009 à 18:51
Salut,
De préférence tu dois procéder comme suit :
emailmsg = "Bonjour,"
emailmsg += "veuillez trouver ci-joint le rapport des évènements qui nous ont étés communiqué"
- concernant la Zone de text ou combo :
emaildest = Text1.text & "@free.fr" 'Demande de l'adresse email
vinvinsylvain
Messages postés36Date d'inscriptiondimanche 8 octobre 2006StatutMembreDernière intervention12 mars 2010 26 janv. 2009 à 13:33
Désoler mais le " emailmsg += " ne fonctionne pas j'ai un méssage d'erreur "erreur de compilation Attendu: expression"
Je dois faire quoi?
Private Sub CmdValider_Click()
'contenu du presse papier
emailsubject = "Rapport des évènements du " & Date 'Demande du sujet du message
emailmsg = "Bonjour,"
emailmsg += "veuillez trouver ci-joint le rapport des évènements qui nous ont étés communiqué"
emaildest = "vinvinsylvain@free.fr" 'Demande de l'adresse email
Dim ObjOutl As Object 'Déclaration des objets
Dim objSession As Object
Set ObjOutl = CreateObject("Outlook.Application") 'Création de l'objet Outlook
Set objSession = ObjOutl.GetNamespace("MAPI") 'Création de l'objet de gestion des message
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message
objSession.Logon 'Connection à Outlook
With ObjMessage
.To = emaildest
.CC = ""
.Subject = emailsubject
.Body = emailmsg
.Attachments.Add "c:\Rapport de Police\Base de donnée Adresse.txt"
.Send
End With
'Suppression des objets (Vidage)
Set ObjMessage = Nothing
objSession.Logoff