Envoi mail via code VBA

Fermé

Mike0139 Messages postés 26 Date d'inscription jeudi 8 mars 2018 Statut Membre Dernière intervention 4 janvier 2022 - Modifié le 3 févr. 2020 à 14:22
Mike0139 Messages postés 26 Date d'inscription jeudi 8 mars 2018 Statut Membre Dernière intervention 4 janvier 2022 - 4 févr. 2020 à 16:05

Hello,

je suis a deux doigts d'arriver à faire ce que je souhaite faire.... Lorsque je clique sur mon bouton actif (lié au code qui me permet d'envoyer un mail automatiquement) je dois sélectionner un fichier (jusqu'ici tout va bien) hors, lorsque je clique sur le fichier que je souhaite joindre au mail, celui-ci n'apparaît pas...

Voici le code :

Sub EnvoiMailAutomatique()
Dim LeMail As Variant
Dim sfichier As String

sfichier = Application.GetOpenFilename(, , "sélectionner le fichier à envoyer")

Set LeMail = CreateObject("Outlook.Application") 'Création d'un objet Outlook
With LeMail.CreateItem(olMailItem)
    .Subject = "ZP12"
    .To = "m.lintanff@fischerconnectors.ch; F.Queiros@fischerconnectors.ch; L.Grossi@fischerconnectors.ch; d.zencirkiran@fischerconnectors.ch; m.guillot@fischerconnectors.ch; C.Morel@fischerconnectors.ch; C.Auroi@fischerconnectors.ch; R.Senra@fischerconnectors.ch; P.Cruz@fischerconnectors.ch; M.Schulz@fischerconnectors.ch; H.Erdem@fischerconnectors.ch; E.FernandesMoreno@fischerconnectors.ch; S.Yildiz@fischerconnectors.ch; l.Bongongo@fischerconnectors.ch; M.Schweizer@fischerconnectors.ch; c.bon@fischerconnectors.ch; v.arena@fischerconnectors.ch; R.Poncet@fischerconnectors.ch; v.jordan@fischerconnectors.ch"
    .CC = "E.Obrecht@fischerconnectors.ch; r.valko@fischerconnectors.ch; R.Mauvilet@fischerconnectors.ch; d.rousseau@fischerconnectors.ch"
    .Body = "Hello," & Chr(10) & Chr(13) & _
    "Ci-joint le ZP12 de cette semaine. Merci de prendre vos actions." & Chr(10) & Chr(13) & _
    "Cdt," & Chr(10) & Chr(13) & _
    "Le planning"
    .Display
    End With
End Sub

Merci de votre aide :)

A voir également:

Envoi mail via code VBA
Yahoo mail - Guide
Code asci - Guide
Programmer envoi mail gmail - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 3 févr. 2020 à 14:56

Bonjour,

voir ceci:

https://excel-malin.com/codes-sources-vba/envoyer-un-email-avec-excel/

il me semble t'avoir déjà répondu à ce sujet:

https://forums.commentcamarche.net/forum/affich-36415445-aide-sur-code-vba

Réponse 2 / 2

Mike0139 Messages postés 26 Date d'inscription jeudi 8 mars 2018 Statut Membre Dernière intervention 4 janvier 2022
3 févr. 2020 à 15:19

Bonjour,

Le code est fini, mais je rencontre un problème où ton lien ne m'aide pas.

Merci,

Mickael

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
3 févr. 2020 à 16:04

Et pourtant la solution est dans lien!!!!!!

'Ajouter la Référence Microsoft Outlook X.0 Object Library
Sub EnvoiMailAutomatique()
Dim LeMail As Variant
Dim sfichier As String

sfichier = Application.GetOpenFilename(, , "sélectionner le fichier à envoyer")

Set LeMail = CreateObject("Outlook.Application") 'Création d'un objet Outlook
With LeMail.CreateItem(olMailItem)
    .Subject = "ZP12"
    .To = "m.lintanff@fischerconnectors.ch; F.Queiros@fischerconnectors.ch; L.Grossi@fischerconnectors.ch; d.zencirkiran@fischerconnectors.ch; m.guillot@fischerconnectors.ch; C.Morel@fischerconnectors.ch; C.Auroi@fischerconnectors.ch; R.Senra@fischerconnectors.ch; P.Cruz@fischerconnectors.ch; M.Schulz@fischerconnectors.ch; H.Erdem@fischerconnectors.ch; E.FernandesMoreno@fischerconnectors.ch; S.Yildiz@fischerconnectors.ch; l.Bongongo@fischerconnectors.ch; M.Schweizer@fischerconnectors.ch; c.bon@fischerconnectors.ch; v.arena@fischerconnectors.ch; R.Poncet@fischerconnectors.ch; v.jordan@fischerconnectors.ch"
    .CC = "E.Obrecht@fischerconnectors.ch; r.valko@fischerconnectors.ch; R.Mauvilet@fischerconnectors.ch; d.rousseau@fischerconnectors.ch"
    .Body = "Hello," & Chr(10) & Chr(13) & _
    "Ci-joint le ZP12 de cette semaine. Merci de prendre vos actions." & Chr(10) & Chr(13) & _
    "Cdt," & Chr(10) & Chr(13) & _
    "Le planning"
    .Display
    .Attachments.Add sfichier
    End With
End Sub

@+ Le Pivert

Mike0139 Messages postés 26 Date d'inscription jeudi 8 mars 2018 Statut Membre Dernière intervention 4 janvier 2022 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
4 févr. 2020 à 16:05

Merci beaucoup Le Pivert

Discussions similaires

Échec d’envoie message messenger

Mail étrange (demande de reinitialisation MDP)

code rare gta san andreas ps2

Code de renvoi d'appel : Ooredo, Mobilis...

Discussions similaires

Newsletters