TextBox dans email

Résolu
Signaler
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010
-
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010
-
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.

Merci d'avance

4 réponses

Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

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

End Sub
Messages postés
120
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
21 décembre 2017

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

le + = t'aidera à alimenter

Bonne prog
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

salut Kokise,


 


mais oui le fameux + mais que je suis C.., j'y avais pas penser et en plus je l'avais lut dans plusieur Furom, que je suis nul.


Bref grand merki !!!!


cordialement
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

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