Envoyé un mail via outlook avec pièce jointe

Commenter

Contenu du snippet

J'ai vu pas mal de monde qui cherche à envoyé un mail via Outlook / Yé suppose ki ya déjà po mol d'exemple là dessus mais voici le miens

Source / Exemple : 


emailsubject = InputBox("Indiquer le sujet de votre e-mail", "Sujet du message")   'Demande du sujet du message
        emailmsg = InputBox("Indiquer votre message", "Message")   'Demande du contenu du message
        emaildest = InputBox("Indiquer le destinataire", "Destinataire")   '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:\toto.txt"
                .Send
            End With

        'Suppression des objets (Vidage)
        Set ObjMessage = Nothing
        objSession.Logoff
        Set objSession = Nothing
        Set ObjOutl = Nothing

Conclusion :


http://www.firstruner.com

A voir également

Du même auteur (cboulas)