Insérer une image dans un mail généré par excel
Bonjour à tou(te)s Pro d'EXCEL" 8O
Nouvel arrivant sur ce blog, je suis un amateur qui développe un outils Excel pour la gestion d'une association dont je suis membre... :ptdr:
Tout d'abord un grand merci aux différents contributeurs qui ont mis à disposition du code VBA m'ayant permis de quasiment finaliser la bête :yaisse:
L'outil permet d'en gérer les membres {Nom / Prénom / Coordonnées / activités / etc...}.
Il permet aussi d'envoyer des courriels à tous les membres ou juste à ceux pratiquant une activité spécifique (ouf le tableau est dressé !)
Dans ce cadre je voudrais insérer un "logo.jpg = logo de l'association" au niveau de la signature, si possible entre les coordonnées d'adresse téléphone et l'adresse courriel... (plutôt exigeant le gonze ! :lol:)
ci-dessous le code utilisé pour l'envoi des courriels.
Par avance, merci pour l'aide déjà apportée (conception de l'outil par 'ponction' de code à droite et à gauche) et pour l'aide à venir = finalisation complète...
De plus, je cherche un outil de gestion comptable simple pour l'association (un peu plus d'une centaine de membres) avec un salarié
Au plaisir de vous lire
Cdlt
Nano
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
Sub Envoyer_Mail_Outlook()
' Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim OL As Object
Dim OLmail As Object
Dim Texte As String
Set OL = CreateObject("Outlook.Application")
Set OLmail = OL.CreateItem(0)
Dim adresse As String
Dim objet As String
Dim signature As String
Dim groupe As String
Dim Message, Default, MyValue
' InputBox pour création de l'objet du courriel
MyValue = InputBox(Message, Default)
Default = ""
Message = "Objet du Courriel"
groupe = "Activité" ' défini l'activité ciblée par le courriel
objet = MyValue & " => Destinataires : " & groupe
' Destinataire(s) du courriel
adresse = "ensemble des destinataires du courriel"
' Message et signature
Texte = "Eysines, le " & Format(Date, "dd/mm/yyyy") & vbCrLf & "Bonjour,"
Texte = Texte & vbCrLf & vbCrLf
signature = "vbCrLf & Sheets("Bureau").Range("G2").Value"
' signature = vbCrLf & signature
Texte = Texte & signature
With OLmail
.To = adresse ' le(s) destinataire(s)
.CC = "Sheets("Bureau").Range("G1").Value" ' le(s) destinataire(s) en copie
.Subject = objet ' l'objet du mail
.Body = Texte ' le corps du mail : son contenu, sa signature
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing
Sheets("Menu").Select
End Sub |
[XL-2010] Insérer une image dans un mail généré par excel / suite
Bon ben... en attendant j'ai un peu avancé et j'ai trouvé, dans le site, cette proposition de "maejor" le 18 janvier 2008 ! (ouf ça date mais c'est toujours opérationnel sous XL 2010) :merci:
elle fonctionne très bien mais ne répond pas à l'ergonomie attendue par l'utilisateur de l'outil...
Code:
1
2
3
4
5
6
7
8
9
10
11
| Sub envoiPlageCellules_Excel2002()
<div style="margin-left:40px">ActiveSheet.Range("A1:B5").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "bonjour , ci joint les données ..."
.Item.To = "destinataire@dvp.fr"
.Item.From = "..@..."
.Item.Subject = "le sujet"
.Item.Send
End With</div>End Sub |
J'aimerais l'intégrer dans mon script, peut-être au niveau codage de la "signature" ?
mais mes différents test ne fonctionnent pas...
ci-dessous pour rappel le code 'opérationnel' que j'utilise :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
| Sub Envoyer_Mail_Outlook()
' Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim OL As Object
Dim OLmail As Object
Dim Texte As String
Set OL = CreateObject("Outlook.Application")
Set OLmail = OL.CreateItem(0)
Dim adresse As String
Dim objet As String
Dim signature As String
Dim groupe As String
Dim Message, Default, MyValue
' InputBox pour création de l'objet du courriel
MyValue = InputBox(Message, Default)
Default = ""
Message = "Objet du Courriel"
groupe = "Activité" ' défini l'activité ciblée par le courriel
objet = MyValue & " => Destinataires : " & groupe
' Destinataire(s) du courriel
adresse = "ensemble des destinataires du courriel"
' Message et signature
Texte = "Eysines, le " & Format(Date, "dd/mm/yyyy") & vbCrLf & "Bonjour,"
Texte = Texte & vbCrLf & vbCrLf
signature = "vbCrLf & Sheets("Bureau").Range("G2").Value"
' signature = vbCrLf & signature
Texte = Texte & signature
With OLmail
.To = adresse ' le(s) destinataire(s)
.CC = "Sheets("Bureau").Range("G1").Value" ' le(s) destinataire(s) en copie
.Subject = objet ' l'objet du mail
.Body = Texte ' le corps du mail : son contenu, sa signature
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing
Sheets("Menu").Select
End Sub |
De plus, je cherche toujours un outil de gestion comptable simple et gratuit pour l'association (un peu plus d'une centaine de membres) avec un salarié (pas moi);)
Au plaisir de vous lire
Cdlt
Nano
