Discussion :

[Rogeure]

Bonjour,

Ci-dessous, une partie du code que j'ai écrit afin d'envoyer un mail depuis Excel 2013.
Je souhaiterai intégrer des images (ballons de rugby) dans la zone subject et dans le corps du mail.

J'ai fait des recherches dans les forums mais je ne trouve pas la solution à mon problème.

Vous serait il possible de m'aider ?


Merci d'avance et bonne soirée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
'*** Paramétrage des mails envoyés ***
With MailResponsable
    .Subject = "Confirmation d'inscription de " & NomduClub & " à notre tournoi"
    .From = "toto@gmx.fr"
    .BCC = AdresseMailResponsable
    .CC = "toto@gmx.fr"
    .HTMLBody = "Bonjour," _
    & "<br />" & "<br />" & "<br />" _
    & "J’accuse réception de ton inscription à notre " & "<b>" & "TOURNOI" & "</b>" & "qui se déroulera SAMEDI" & "<b>" _
    & "<br />" & "<br />" _
    & "Tu trouveras, la feuille de restauration en fichier joint :" _
    & "<br />" & "<br />" & "<blockquote>" _
     & "Sportivement" _
    & "<br />" & "<br />" & "<br />" _
End With
 
MailResponsable.Send
Set MailResponsable = Nothing

[laurent_ott]

Bonjour,
Pour insérer une image dans le corps du mail ce n'est pas compliqué, tout est expliqué dans cette documentation : https://laurent-ott.developpez.com/t...-mail-outlook/

Mais je n'ai aucune idée pour une image dans le sujet.
Bonne continuation.

[jurassic pork]

Hello,

Mais je n'ai aucune idée pour une image dans le sujet.

je ne crois pas que cela soit possible. Sinon on peut mettre un caractère spécial (genre pictogramme, emoticons ...) mais il faut alors qu'il soit présent dans les polices de l'ordinateur de celui qui reçoit le message.
Exemple :

Ami calmant, J.P

[Rogeure]

Hello,

je ne crois pas que cela soit possible. Sinon on peut mettre un caractère spécial (genre pictogramme, emoticons ...) mais il faut alors qu'il soit présent dans les polices de l'ordinateur de celui qui reçoit le message.
Exemple :

Ami calmant, J.P

OK merci pour ta réponse.
Mais comment insérer un caractère spécial à travers du code VBA Excel ?

[jurassic pork]

OK merci pour ta réponse.
Mais comment insérer un caractère spécial à travers du code VBA Excel ?

A essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Subject = ChrW(&HD83C) & ChrW(&HDFC9) & " Confirmation d'inscription du club de Porkyville  à notre tournoi " & ChrW(&HD83C) & ChrW(&HDFC9)

voir ici
pour le ballon voir ici

Mais attention si les gens qui reçoivent les courriels n'ont pas les caractères spéciaux dans les polices installées dans leur système cela ne fonctionnera pas (risque d'avoir des ?? au lieu des caractères spéciaux).

[Rogeure]

Merci jurassic pork et laurent_ott !

Vos aides m'ont bien été utiles.