afficher image avec .htmlbody en vba hors outlook

**patricktoulon** · 24/02/2017, 20h41

il faut le faire a chaque fois pour chaque image

Code :

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

1
2
3
4
set img=iMsg.AddRelatedBodyPart ThisWorkbook.Path & "\" & "1-4.jpg", img1, 1:img.Fields.Update
set img=iMsg.AddRelatedBodyPart ThisWorkbook.Path & "\" & "2-4.jpg", img2, 1:img.Fields.Update
set img=iMsg.AddRelatedBodyPart ThisWorkbook.Path & "\" & "3-4.jpg", img3, 1:img.Fields.Update
set img=iMsg.AddRelatedBodyPart ThisWorkbook.Path & "\" & "4-4.jpg", img4, 1:img.Fields.Update

voila

non pas en dernier avec tes attachements

je te l'ai déjà dis a ne pas confondre les body part et les attachement

c'est plus clair la??????

quand tu va au super maché faire tes commisions avec ton pagnier
tu met du lait,du pain,une salade, un steak,3tomates etc......

mais si tu passe pas a la caisse tu sortira sans miammiam
compare le field.uppdate au truc qui fait beepbepp a la caisse

**gpoth** · 24/02/2017, 20h50

dommage.
du coup, je l'ai écrit comme ca... sur "Courrier", les images ne s'affichent toujours pas...
dommage

merci quand même, tu m'as été d'une grande aide.

Code :

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

1
2
3
4
5
6
7
8
.AddRelatedBodyPart ThisWorkbook.Path & "\" & "1-4.jpg", img1, 1
.Fields.Update
.AddRelatedBodyPart ThisWorkbook.Path & "\" & "2-4.jpg", img2, 1
.Fields.Update
.AddRelatedBodyPart ThisWorkbook.Path & "\" & "3-4.jpg", img3, 1
.Fields.Update
.AddRelatedBodyPart ThisWorkbook.Path & "\" & "4-4.jpg", img4, 1
.Fields.Update

**patricktoulon** · 24/02/2017, 21h04

ma foi je sais pas il doit y avoir un soucis ailleurs je viens de faire le test sur Outlook et gmail ca match tout est OK et mes images sont bien la

**Oliv-** · 27/02/2017, 17h24

Salut Patrick,

Avec Outlook cela fonctionne aussi et les images sont a leur place !

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Sub testgui()
    Set OL = CreateObject("Outlook.Application")
    Set oMail = OL.CreateItem(olMailItem)    '0
 
    'enléve les messages d'alerte
    Application.DisplayAlerts = False
    'remet les messages d'alerte
    Application.DisplayAlerts = True
    'réactive le rafraichissement de l'écran
    Application.ScreenUpdating = True
 
 
    Adresse = "toto@gmail.com"    'pour exemple
 
    With oMail
        .To = Adresse
        .BodyFormat = olFormatHTML
        .Subject = "HMTL BODY du " & Date
 
        ' debut du message html
        Const SAUTLIGNE = "<br/>"
 
        '
        .HTMLBody = "<body>"
 
        img1 = "1-4.jpg"
        img2 = "2-4.jpg"
        img3 = "3-4.jpg"
        img4 = "4-4.jpg"
 
        .Attachments.Add ThisWorkbook.path & "\" & "1-4.jpg", olByValue, 0
        .Attachments.Add ThisWorkbook.path & "\" & "2-4.jpg", olByValue, 0
        .Attachments.Add ThisWorkbook.path & "\" & "3-4.jpg", olByValue, 0
        .Attachments.Add ThisWorkbook.path & "\" & "4-4.jpg", olByValue, 0
 
 
 
        'Ecrit bonjour en gras, calibri, taille 40
        .HTMLBody = .HTMLBody & "<font face=""calibri"" size =""40"" color=""black""> hello <b>Bonjour ! " & prenom & " " & Nom & "</b></font>"
        'Saute deux lignes
        .HTMLBody = .HTMLBody & SAUTLIGNE & SAUTLIGNE
        'Ecrit le reste de l'entete
 
        .HTMLBody = .HTMLBody & SAUTLIGNE & SAUTLIGNE
        .HTMLBody = .HTMLBody & "<div align='center'><table>"
        .HTMLBody = .HTMLBody & "<tr>"
        .HTMLBody = .HTMLBody & "<td valign='middle'><b>test : <input type='text'>Ligne 1 - cols 1</input></b></td>"
        .HTMLBody = .HTMLBody & "<td valign='middle'><b><img src='" & img1 & "'>"
        .HTMLBody = .HTMLBody & "Ligne 1 - cols 2</b></td>"
        .HTMLBody = .HTMLBody & "<td valign='middle'><b><img src='" & img2 & "'>"
        .HTMLBody = .HTMLBody & "Ligne 1 - cols 3</b></td>"
        .HTMLBody = .HTMLBody & "</tr>"
 
        .HTMLBody = .HTMLBody & "<tr>"
        .HTMLBody = .HTMLBody & "<td valign='middle'><b><img src='" & img3 & "'>"
        .HTMLBody = .HTMLBody & "Ligne 2 - cols 1</b></td>"
        .HTMLBody = .HTMLBody & "<td valign='middle'><b><img src='" & img4 & "'>"
        .HTMLBody = .HTMLBody & "Ligne 2 - cols 2</b></td>"
        .HTMLBody = .HTMLBody & "<td valign='middle'><b>Ligne 2 - cols 3</b></td>"
        .HTMLBody = .HTMLBody & "</tr>"
 
        .HTMLBody = .HTMLBody & "</table></div>"
 
        .HTMLBody = .HTMLBody & "</body>"
 
        .Display
        DoEvents
        .Send
    End With
End Sub

Par contre il y a des limites dans l'utilisation des formulaires pour obtenir une réponse, liées notamment à la sécurité

**gpoth** · 06/03/2017, 00h43

allez, on fait la pub...
remarque j'ai pris hostinger comme hébergeur gratuit...
j'ai un fichier d'email d'environ 3000 personnes

et là j'envoie avec smtp.sfr.... et là je plante à environ 50 mais envoyés...

Nom : erreur.png
Affichages : 279
Taille : 6,6 Ko

Nom : erreur.png
Affichages : 279
Taille : 6,6 Ko

dommage, j'y ai bien cru quelques courts instants...

que me conseillez vous comme serveur smtp ?

Merci.
Guillaume.

**Oliv-** · 06/03/2017, 10h09

Bonjour,
Les serveurs SMTP, comportent des limites d'envoi , poids, nombre de destinataires ou nombre d'envoi sur une période, afin de limiter le SPAM.

Tu peux très bien conserver ce SMTP, mais découper tes envois et les espacer dans le temps.

Invité · 06/03/2017, 20h04

Il faut aller sur le site d'sfr et désactiver ipV6!

**gpoth** · 07/03/2017, 00h22

Merci.
Dès demain je teste ça.
Sinon avec Gmail, c'est impeccable... Je vais voir combien d'emails peut envoyer sfr. Autrement auriez vous un autre compte de messagerie à me conseiller ?
Merci.
Bonne soirée.

Invité · 07/03/2017, 07h30

Bonjour,
De plus en plus les hébergeur utilise ipV6 pour améliorer la sécurité. Mais il est possible dans la plupart des cas de le désactiver!

Le quotas de mail est définit par sa charte! Certains comme orange permet même l'utilisation du port 25 sur la box de du contractant!

Il existe de serveur mail gratuits qui permettent d'utiliser les services d'un hébergeur tout en autorisant sa propre adresse mail (rd@dysorthographie.eu)!

http://mobile.clubic.com/telecharger...ailserver.html

Yahoo propose la virtualisation de adresses mails! Et de mémoire il utilise le port 25 mais depuis une attaque ressente je ne parierais pas!

**gpoth** · 07/03/2017, 10h47

bonjour, j'ai trop abusé du gmail on dirait, il ont fermé mon compte

à suivre... plus rien de gratuit maintenant, dommage...

**patricktoulon** · 07/03/2017, 13h33

LOL Carrément ils ont fermé ton compte?
Apres c est vrai ca fait beaucoup
Il existe des cite de dispatch pour les email de grand nombre mais bien evidement c est payant mais si tu en à autant c est certainement professionnel ou societaire
Il est normal que des pro se face payer non?

Invité · 07/03/2017, 13h41

je ne pense pas qu'il on clôturé ton compte! ils ont estimé que tu étais victime d'un spammeur et il l'ont verrouillé pendant un lapes de temps!

ils te considère comme victime! mais il t'ont certainement envoyé un mais pour te demander si tu avais confiance en l'émetteur!

**gpoth** · 07/03/2017, 22h13

Bonsoir,
En ce qui concerne Gmail je leur ai écrit ce matin. Pour l'instant mon compte reste bloqué... Un peu trop beau pour être vrai... Tant pis, j'ai continué ma boucle avec mon sfr piano piano (1 e-mail toute les 5 secondes) pour ne pas les choquer ! Comme ça je peux en envoyer 100 sans blocage...
En revanche, je me rend compte que Orange et wanadoo sont pas si mauvais que ça puisqu'ils détectent automatiquement que c'est du 'spam'...
Même si je connais mes destinataires !

Avez-vous une solution à me proposer pour contrer les anti-spam (en dur bien évidemment !)

Merci les gars (et les filles) pour vos conseils.

Guillaume.

**Oliv-** · 08/03/2017, 09h37

Salut,

Et tes envois c'est vraiment du SPAM ?

Tu peux lire
https://www.developpez.net/forums/d1...entifies-spam/

ou

http://lmgtfy.com/?q=PUBLIPOSTAGE+ET+SPAM

**gpoth** · 08/03/2017, 11h52

bonjour,

non, je cherche à obtenir des statistiques pour effectuer une étude de marché
cette méthode est très pratique pour la communication (email) en général (promotions, newsletters....)

A+

afficher image avec .htmlbody en vba hors outlook

Macros et VBA Excel

Discussions similaires

Partager

Partager