Envoyé un mail via outlook avec pièce jointe

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 154 fois - Téléchargée 33 fois

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

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
vendredi 4 février 2011
Statut
Membre
Dernière intervention
4 février 2011

hi !
comment ecrire une macro pour envoyer des email (fiche excel colune C) d'une façon automatique svppp helpppp
Messages postés
2
Date d'inscription
mardi 19 mai 2009
Statut
Membre
Dernière intervention
20 mai 2009

Bonjour à tous
je ne sais pas si je m'exprime au bon endroit, dans ce cas veuillez me le notifier svp.

je bloque sur mon classeur excel.
j'ai créer une macro qui me permet lorsque je clique sur un bouton d'envoyer un mail sur outlook.
j'aimerais et c'est la ou je fais appel à vous, que cette envoi se fasse automatiquement sans que je clique sur le bouton et par rapport à une date précise...comment dois-je faire svp? merci de m'aider

ps: je suis pas un pro d'excel
Messages postés
3
Date d'inscription
samedi 11 octobre 2008
Statut
Membre
Dernière intervention
17 octobre 2008

j'ai un problem "le control activex ne peut pas céer l'objet
Messages postés
39
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
21 mai 2015

Salut,
J'ai également crée un source permettant d'envoyer un mail par Outlook 2003.
Cependant, j'ai le même souci que plusieurs d'entre vous : un message de contrôle de sécurité OUTLOOK apparaît.
Auriez-vous une idée ou un moyen de passer outre, SVP ?
Merci d'avance.

Cdlmt,

Dchrist
Messages postés
3
Date d'inscription
jeudi 6 avril 2006
Statut
Membre
Dernière intervention
7 avril 2006

Salut. Chez moi ça marchait tres bien dans ma macro EXCEL (j'avais pondu quasiment la même chose tout seul) jusqu'au passage en Outlook 2003. Depuis, j'ai 2 soucis :
- message d'alerte de Outlook concernant l'envoi du mail par une appli extérieure(au moment de l'instruction '.Send') qui plante ma macro EXCEL puisqu'elle n'a plus la main. J'ai contourné ce Pb en remplacant cette instruction par un 'SendKey ("%v"), True'
- arrivé sur l'instruction '.Attachments.Add ...', j'ai un message d'erreur qui me dit "impossible d'envoyer le message. L'objet a été supprimé"... et là ... je sèche :o((

Quelqu'un peut-il m'aider ?
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.