afficher image avec .htmlbody en vba hors outlook

Version imprimable

Voir 40 message(s) de cette discussion en une page

il faut le faire a chaque fois pour chaque image
Code:

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

cela me donne un message d'erreur si je copie/colle

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:

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

24/02/2017, 21h04
patricktoulon

re

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

Salut Patrick,

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

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
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é

06/03/2017, 00h43
gpoth

1 pièce(s) jointe(s)

le mailing est prêt, le site web est crée

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...

Pièce jointe 251204

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

que me conseillez vous comme serveur smtp ?

Merci.
Guillaume.
06/03/2017, 10h09
Oliv-

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.
06/03/2017, 20h04
Invité

Il faut aller sur le site d'sfr et désactiver ipV6!
07/03/2017, 00h22
gpoth

IpV6

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.
07/03/2017, 07h30
Invité

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!
07/03/2017, 10h47
gpoth

bonjour, j'ai trop abusé du gmail on dirait

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

à suivre... plus rien de gratuit maintenant, dommage...
07/03/2017, 13h33
patricktoulon

Re

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?
07/03/2017, 13h41
Invité

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!
07/03/2017, 22h13
gpoth

Orange et wanadoo

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.
08/03/2017, 09h37
Oliv-

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
08/03/2017, 11h52
gpoth

non

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+

Voir 40 message(s) de cette discussion en une page