TextBox dans email Résolu

Question

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

vinvinsylvain · Accepted Answer

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

kokise · Answer

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

vinvinsylvain · Answer

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

vinvinsylvain · Answer

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

TextBox dans email

4 réponses

Votre réponse

Discussions similaires