XL 2021 Envoi mail via VBA et Outlook

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion treza88
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
treza88

treza88

XLDnaute Occasionnel
Bonjour à tous,

Sujet déjà évoqué dans différent post, mais je n'arrive pas a un résultat qui fonctionne même après une multitude d'essais.

Mon image dans le corps du mail n'apparait une fois le mail envoyé et j'ai deux comte de messagerie dans ma session Outlook, mais je n'arrive pas à envoyer un mail avec le deuxième compte

Voici mon code :

VB: 
Sub envoieMail()

Dim OutApp As Object
Dim OutMail As Object
Dim oAccount As Outlook.Account
Dim OutAccount As Object
Dim Chemin$, NomImage$
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.createitem(olMailItem)
Set OutAccount = OutApp.Session.Accounts.Item(2)

Chemin = "C:\Users\MOI\Downloads\img.png"
NomImage = Mid(Chemin, InStrRev(Chemin, "\") + 1) 'nom du fichier image sans le chemin complet

With OutMail
    .SendUsingAccount = OutAccount
    .to = "mail2@domaine.com" 'mailDestinataire
    '.cc = "mail@domaine.com"
    '.bcc = Worksheets("Feuil2").Range("E1")
    .Subject = "Planning du jeudi"
    '.body = Worksheets("Feuil2").Range("H1")
    .HTMLBody = "<body>Hello, " & "<br><br>" & _
                  ThisWorkbook.Sheets("Feuil2").Range("H1") & "<br>" & _
                  "Texte du corp du mail." & "<br><br>" & _
                  "<img src='" & NomImage & "' & width='700' height='600'><br><br>" & _
                  "**[Ce message a été généré automatiquement]**</body>"
    .send
End With

Set OutMail = Nothing
Set OutApp = Nothing
    

End Sub

Merci pour toute aide pour me guider.
 
Solution
patricktoulon
je crois me souvenir qu'il faut utiliser le sendusing
un truc du genre
VB: 
Sub méméle()
    Dim olApp As Object
    Dim mail As Object
    Dim acc As Object
    Dim monimage$, nomimg$
    monimage = "c:\mondossier\mikeydonaldetmoi.jpeg"
    nomimg = Mid(monimage, InStrRev(monimage, "\") + 1)
     Set olApp = CreateObject("Outlook.Application")
    Set mail = olApp.CreateItem(0)
    Set mail.SendUsingAccount = olApp.Session.Accounts.Item(2)
         

    With mail
        .To = "lautre@youméméle.com"
        .Subject = "une image forte pour toi et que tu fasse des cauchemars"
        .Attachments.Add monimage
        .HTMLBody = "blablabla <img src=""" & nomimg & """><br> blablabla<br> En vous souhaitant bonne reception dans la...
Trier par date Trier par votes
Merci Patricktoulon,

Forcément je comprend mieux.
Par contre pour envoyer le mail avec le deuxième compte Outlook, tu à une idée, car j'ai beau mettre su la ligne ci dessous 1 ou 2, aucune différence :

VB: 
Set OutAccount = OutApp.Session.Accounts.Item(2)
 
Vote positif 0 Vote négatif
je crois me souvenir qu'il faut utiliser le sendusing
un truc du genre
VB: 
Sub méméle()
    Dim olApp As Object
    Dim mail As Object
    Dim acc As Object
    Dim monimage$, nomimg$
    monimage = "c:\mondossier\mikeydonaldetmoi.jpeg"
    nomimg = Mid(monimage, InStrRev(monimage, "\") + 1)
     Set olApp = CreateObject("Outlook.Application")
    Set mail = olApp.CreateItem(0)
    Set mail.SendUsingAccount = olApp.Session.Accounts.Item(2)
         

    With mail
        .To = "lautre@youméméle.com"
        .Subject = "une image forte pour toi et que tu fasse des cauchemars"
        .Attachments.Add monimage
        .HTMLBody = "blablabla <img src=""" & nomimg & """><br> blablabla<br> En vous souhaitant bonne reception dans la tronche"
        .Send
    End With
End Sub
 
Vote positif 0 Vote négatif
Solution
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
Microsoft 365 Valider automatiquement un message d'alerte
Réponses
4
Affichages
341
GG Delcroix
G
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
585
Phil69970
Phil69970
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
780
Phil69970
Phil69970
G
  • Question Question
Microsoft 365 Vba Excel l'instruction Set OutApp = CreateObject("Outlook.Application") bloque excel
Réponses
2
Affichages
784
laurent950
laurent950
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
587
spike29
S
G
  • Résolu(e)
XL 2021 Envoie d'informations sélectionnés par mail
Réponses
3
Affichages
401
TooFatBoy
TooFatBoy
N
  • Résolu(e)
XL 2021 Exporter un graphique dans Outlook
Réponses
3
Affichages
608
NLSCt
N
N
  • Question Question
Microsoft 365 Envoi via Excel avec OutlookNew
Réponses
4
Affichages
747
Titou37P
Titou37P
pascal21
  • Question Question
XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook
Réponses
7
Affichages
346
pascal21
pascal21
My<3
  • Question Question
XL 2019 HTML Corps de mail
Réponses
6
Affichages
894
My<3
My<3
B
  • Question Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
452
kiki29
kiki29
K
  • Résolu(e)
XL 2019 Probleme codage
Réponses
2
Affichages
509
Kevin42560
K
C
  • Résolu(e)
XL 2013 vba - envoi d'un mail avec le choix de l'adresse mail expéditeur (qd on a 2 comptes)
Réponses
4
Affichages
960
Chrystel01
C
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
558
Maxou69
M
V
  • Résolu(e)
Microsoft 365 Envoie mail automatique
2
Réponses
17
Affichages
2 K
vby
V
halecs93
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
972
halecs93
halecs93
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
965
TooFatBoy
TooFatBoy
N
  • Question Question
Microsoft 365 choisir sa signature outlook depuis vba excel
Réponses
3
Affichages
3 K
NitroX38X
N
Sellig
  • Question Question
envoyer un mail depuis excel
2
Réponses
27
Affichages
2 K
Zon
Z
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
Retour