Page 2 sur 2
Re: [R] Envoi de mail et image dans le corps du message
Posté : mar. 03 févr. 2015 11:04
par Gnifrus
Bonjour,
Autant pour moi ! Désolé, je n'avais pas bien épluché votre post.
Le problème est que si j'envoie mon code en tant que $as_Body dans la fonction "_INetSmtpMailCom", il ne m'affiche pas l'image, mais la mention "Embedded Image" à la place, ce qui est le cas lorsqu'il n'arrive pas à trouver l'image.
Par contre, si j'envoie le code de $as_Body dans un fichier html, comme vous avec "Essai.htm", tout s'affiche correctement !
Je ne pige pas, d'autant plus que le code source du mail et du fichier html sont identiques ???
Vous serait-il possible d'essayer de votre côté afin de vérifier mes dires ?
Merci encore et désolé du dérangement...
Bonne journée,
Gnif.
Re: [R] Envoi de mail et image dans le corps du message
Posté : mar. 03 févr. 2015 12:41
par walkson
Bonjour,
Je ne vais pas être d'un grand secoure car la fonction _INetSmtpMailCom() bloque sur
Code : Tout sélectionner
"F:\Mes documents\Script Autoitl\copie_sendmail1.au3"(88,15) : error: missing separator character before keyword.
$objEmail.To
J'ignore pourquoi elle ne fonctionne plus, nouvelle version Autoit ? (je m'en sers que très rarement)
Je ne sais pas si c'est le fait que ce soit en html que cela bloque de votre coté ? (ça m'étonnerait)
En espérant que quelqu'un d'autre puisse vous aider...
Ps: vous deviez mettre votre script (sans les infos perso) pour voir s'il y a une erreur et retirez le "R" dans le premier post, vous auriez plus de réponses
Re: [R] Envoi de mail et image dans le corps du message
Posté : mar. 03 févr. 2015 15:06
par TomAijerrie
Re: [R] Envoi de mail et image dans le corps du message
Posté : mar. 03 févr. 2015 17:15
par walkson
Merci TomAijerrie, l'astuce était simple mais il fallait la connaitre.
Autrement, Gnifrus, en effet l'image ne s'affiche pas dans la boite mail du FAI (Firefox) mais elle s'affiche sous thunderbird.
Je ne vois pas d'autres solutions à par de renvoyer l'image sur une adresse web src="http://....
Mais d'autres trouveront peut être une solution
Re: [R] Envoi de mail et image dans le corps du message
Posté : mar. 03 févr. 2015 20:16
par orax
J'avais remarqué que dans le code du
premier message il manque un
</body> à la fin (avant </HTML>). Je ne sais pas si le problème vient de là mais je préfère le signaler.
Re: [..] Envoi de mail et image dans le corps du message
Posté : mar. 03 févr. 2015 23:13
par Gnifrus
Merci !
walkson, quand vous dites
"l'image ne s'affiche pas dans la boite mail du FAI (Firefox) mais elle s'affiche sous thunderbird", ça veut dire quoi exactement ?
parce que j'utilise Thunderbird, et pour moi, elle ne s'affiche pas ?
J'ai enlevé le [R], vous avez raison, ça peut aider...
Pour le code, il faut que je le raccourcisse un peu et que je modifie les infos persos pour le mettre ici. J'essaierai de m'occuper de ça demain.
Merci encore à tous !
Bonne soirée,
Gnif.
Re: [..] Envoi de mail et image dans le corps du message
Posté : mer. 04 févr. 2015 01:16
par orax
Gnifrus a écrit :walkson, quand vous dites "l'image ne s'affiche pas dans la boite mail du FAI (Firefox) mais elle s'affiche sous thunderbird", ça veut dire quoi exactement ?
Je suppose qu'il parle du
webmail. Si c'est bien ça, j'avais vu
ici que certains webmails n'aiment pas trop les images intégrées et ne les affichent pas.
Re: [..] Envoi de mail et image dans le corps du message
Posté : mer. 04 févr. 2015 09:29
par walkson
Bonjour,
@Gnifrus j'utilise Framabird (Thunderbird portable) et l'image s'affiche.
Sinon, j'ai fais un essai avec Thunderbird puisqu'il permet d'intégrer une image dans le corps du mail et l'image apparait dans le webmail. Donc, c'est possible. Par contre l'analyse du code révèle une toute autre méthode même si l'image est écrite en binaire en fin de mail.
Re: [..] Envoi de mail et image dans le corps du message
Posté : mer. 04 févr. 2015 15:22
par Gnifrus
Bonjour,
Bon, comme pour vous ça fonctionne avec thunderbird, et moi pas....
, je vous envoie mon code AutoIt. Désolé, c'est un peu long. Peut-être y a t-il une erreur de guillemets, balises ou que sais-je encore ?
► Afficher le texte
Code : Tout sélectionner
Opt("MustDeclareVars", 1)
#include <Inet.au3>
#Include<file.au3>
Global $oMyRet[2]
local $SmtpServer = "smtp.xx.xxxxx" ; address for the smtp-server to use - REQUIRED
local $FromName = "Moi" ; name from who the email was sent
local $FromAddress = "xxx.xxx@xxx.fr" ; address from where the mail should come
local $ToAddress = "xxx.xxx@xxx.fr"; ; destination address of the email - REQUIRED
local $CcAddress = "" ; address for cc - leave blank if not needed
local $BccAddress = "" ; address for bcc - leave blank if not needed
local $Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
local $Username = "xxx" ; username for the account used from where the mail gets sent - REQUIRED
local $Password = "" ; password for the account used from where the mail gets sent - REQUIRED
local $IPPort=25 ; GMAIL port used for sending the mail
local $ssl=0 ; GMAIL enables/disables secure socket layer sending - put to 1 if using httpS
local $Subject = "Embedded Image Test!!!"
local $AttachFiles = ""
Local $Body = "<html><head></head><body><table width=""100%"" border=""0"">" & _
"<tr><th scope=""row"">" & _
"<img style=""width: 128px; height: 128px;"" alt=""Embedded Image"" src=""data:image/png;base64," & _
"R0lGODlhgACAAIcAMZ5OBNyoNPTXQ7R7M7ynlNx8D+zAObqEVtTW1NyUI+yoI8ST" & _
"SsRiBNyUTPzvUcTBveTAWcx8GPSVG/DYYaRiHMymXOymXMSYVuS/mrSGR/TMOeay" & _
"frRvIezu7PTkZeOgJ+KIE+TKZPugHsCZdctvDOSzOvC0J9KgRfrwdNy0WOvGpPvk" & _
"SrZ8QNSogPPXufahSNKIHvK0cbVZBPq/KN+WMtKUML+0qOOfUrlkDdxxB8zMzOGI" & _
"Ms2YWNqoRbyQWvTeYfzMMKNXDvzYOeypZsSINrxwHPz7cPTk1fSWMPTmdc2UQOzF" & _
"V/TSVNRwB+y0NOSmZOyJE+rMbfygNcR8IuyTGeyuNPW/iPa6fuvQss2JLbRpHu/Y" & _
"ceS6WcSCPOChYOyCDPyoG9XBre3MSPnqY8GfermCRMypiuGCEOzGR+TGZsyCPOyg" & _
"HeS6Rvy2Ivz2dvvGK+StPMSRW6xXBfz3Yc+CHfypUeu3gbNxL+COG8d2GLhqE8yg" & _
"WfTeUMhoB/iaHfz9/Ny6ZdiyjOTk5Myyl9zMweyOLPzq3OTWzOyaRaxqLfzw6PTK" & _
"pPyzaOyUNeOpb/ymRPTEmMyidKxSBMSKVMSMRuygUfTQreyiXL6unMSeXPPeyuSO" & _
"LKReHO3q6tS6pNRqBPzeQbx2JcSCL8yul8y6rOSuNLyCNNze3OKaI/CuJOOaTsXG" & _
"xNSuX/SuXLyOS/T29OzSXuvKrPzqTtSOIdyaLNSaNL+6tNTS1NyuRvKuaPeaM8+a" & _
"RdyuVs6OMtzGtPTYUOnASOTAaMCXat2gNt2IHcZxFeK0SNu0ZPHZxLqQZr2hh+e5" & _
"j8yebKNSBLmKWMSaTPO6LPS6dLleBd12C+6OFOzSb/PSSLR2MOSudPTSPLR2JPPe" & _
"cPzSNcSOPNR2DOy6OeyaHPTGOKxeDvyuXNzSzOTe3Pz29Py6dOyaPNyORPzwYPz7" & _
"fOzGbOSoLrx8LsSokOR9Ddza3OSUHPSoHOSWRMzBuNR8E/yWJKxjFtSoWvSnVuzA" & _
"lryIQ/Ty8/zmXOzMXSwAAAAAgACAAAcI/gD/CBxIsKDBgwgTKlzIsKHDhxAjSpxI" & _
"saLFixgzatzIsSNCc39AigzpsaRJiiJfmVP5qqXLlitjmgN5smbNmSxf6tzJMyZJ" & _
"m0BRxtTZ71W/o0iTKi36cuWrPyqDSmWI8+nLpR36ddiqNSvXrEtd9nM6c6rZgSuh" & _
"tsTaoRM5X++SsUhEIYjdIJwSsUj2LsyhTmCT6kxL86zJqkaNIt1aLoyZuZwASJ5M" & _
"uTKAvAfIhCkX+KjLtD8NbwQJU/HRrYdGHYhsubVrypwOYDrUuelT0RlJ51xcbhAL" & _
"1q+DCw/CYhBnrZ6tFsY9kazpreSSARdOnTqnZOSQJ2fJPOLQ5x0I/h0IEjzItThm" & _
"wmBBdqSTon7vDR05hCVMCx93prd2RqiTYJbLdZdQWkUtRs4BwV0TiS9HUHSEL8xc" & _
"E9wB5HDFFGECfqRWUh0IMgJ5rSXSAjIBWoSMGYm4FsQIggT2WYYGOQWeJym2doAK" & _
"/RymAoKtUeCJhUxFVaJoQy0mSDKuOYMMQTM16eSTUEbp5EDIOONaMpyBVRqMMp7W" & _
"gS81VnYNISJJaeaZZ4YUCwsh+uJiS6ERKZZWnbwDImVBBKLIH4q856c5Y5mjyEyD" & _
"CkrooYYmWqgir/gJn0r9BHLnZEG8A9h2cZrV5VadIGkZCyTC12efhvRjiCKnokrq" & _
"qqq2muqr/qSKOmqf5iDDpmXJAKYlnIbNqZUgPFImSRxHmNOJIYYc2wGypy6riLPQ" & _
"Nivts9Mu6yyy1hqyrHuGxGFji0gBqCmkdJbDQjOSNaOuJMyceoR8ySJ7bCfvdvCu" & _
"tvXeiy+2+SJ7r732wktvskegyowc6lJWRjmXMpXpSU55ae5k6jYTRLtHZKzxxhy/" & _
"mzG8Hn+sMcjy2dvxyR8zUzG6krGQJaZARdzVxACQF0QzcvCQsSYb88wzykAHLfTO" & _
"R2iiSTkZ84BwwpItbCF3Q2ok81bAAsByM5I004XRyJSDzCFGhy322GSXbfbZmiBj" & _
"Nj9ZVyzZAYI0zOtha3XVqbBYF0FI/trI9O33IX737YImg4s9+OFGF5744oUjfnjg" & _
"X0cONiFFSCJJZXHomtxIHG3aFhmTXW65HIFosh59LrhwSOrIpO5C667HLvvstNdu" & _
"+3pYaBKIDJZfPhkZmm/ZEUundRJGEKJjLYcMXSCDxfPQP+8CFtOnTr3t2GdPe/RY" & _
"0Pc8Ml3IIYckCF8uRxgNF/WwRRFzGk+KWY8ugzSBPB9L9JZgkf/++lvi//8ADKAA" & _
"BzjA+90vege8nyekIYPxrSwRf+GKS0ZTt7Z04gBYW9fy5NAFLMTCFyqIRQhjEYtF" & _
"lDAWlliE/1SoQgK60IUstEQJZWhCGYrwhiRUwwYtVzFntEhL/hhin1g4NQryYI18" & _
"y5OBI3yxDxU48YlPXIQKIKECKS7iiljMYhZTqMUudrGKYAwjFDEQwhbIoIEOBEDW" & _
"BtEJuUEFI8RzHz6SJ74z6mEZGNhHHvfBx31Awo9+nCIkBknIQkJiEYckJCIXmUhE" & _
"JtKQgwTkH/uoRz1iAAPLKMIZyWc5NSaCHHKLihAV0xZBeEt0kuDdGdWASUzicRmU" & _
"5KMV9jHLQbKjkFYYZC5ziUtC8lKXkPhlMP14y1haoZV4xIAaGMg7HqrRGW3cVdQc" & _
"Ese2hGFpSDyjNKTBg2V485vLsEM4r7APO8zSCuhMpzrXyc52upMd6CwnOu0QDW+K" & _
"U5wb/lhGA+Z3xgbGLwjoC2VF2lfKc40uifNjgBc2wFCG2uGhEL2CHa4gUStQ9AoW" & _
"tUI0rHAOjqqzox4FaUdHis6ORoOiy6AoRB8azg3YgaGBWMYeGLDNM44vfiyImwRB" & _
"4504dkIQx5ME8hAqDQYoNBANdehElypRisbgohSNxjlIOtWqjvSqV+WoSaHaVImu" & _
"9KVJ9YJRa4pGOQRBDqSIpmfeKJG1cApYWaujNo2qUEc4AhvY2AA2YrDXvcbgr3+9" & _
"AmCjEYNzXMGqiE1sYqVaWMA69rG5wKtksSFWmpJVfOQrg06zApOekvKn11ReEota" & _
"1LradQioxUZkc7HaGOTCtTFg/kRszxHb2jKCEbQ9B253m1vZ+ta2tf3ra1Wr2iEU" & _
"Nxd2dURlx8rM8p1Pp57haUNk1kZBOIOToy2tURvgiCcMwRGoRS1rx5uLceSCEedF" & _
"7zhuu97bnre9743BONp72/rG17zmJW8uwjuEJ/jXvw3oA135yTvxNcOHAp2mQchl" & _
"wVuII67a1C4DPpEOL3jhEhe+hAUuoQ8O60MfuQBxHUI831yMeL4oTrGK59sKFo+j" & _
"xS8ecYhN/OEPW+DGN76wF56QDgEPmJmcFEd/BOoQ6v6UDL1DKANkQNdP7EAVXqiE" & _
"Ki5B5Sp3uA6XwHIdtqyPLXv5y2AeRx3ELGYwc3nEZ64x/oerTOUbXALKO/gEXZfc" & _
"zySTIW7+uRA13fpTQVwjm/PTrpw/4Q1VqELKl0BEJV7wgku8oMMv2HKWv9xlM5PZ" & _
"zJj+cqSz7GhIO7oSlUDEDRBhaHsMes7NHd8AyvHD5KyPSZB6az3EIb7RzvkTuPZG" & _
"A6SMCERcAtSMDnYdGD3sYke62JlO9pYfsewtv+ARkQ42o0ENalLfQBU5wLWPLcvA" & _
"WsvBF3juwASpwuefjmB82S2tgHHtZFXQo9fwfsGipc1oaEN72M/O9yP2ze9++7vf" & _
"0oY2veX9AnirgtQ7aMIn+rBwH19WfGQ4hebUp+AN0UkQgmABoLfJgD54HNdNyEEB" & _
"/uhB8kb0Ggnx1kWwpSDwF7D82faGOctn/gia15zfMHe5wKXAaES8wOS6QITJ6dGI" & _
"AuRA4Q0X8Da7Lb5rYJzIA6pbdXVAa/FtEwdG9TjDmxDyHOygEWAXOiJ0QXYpIEIK" & _
"uuC5FNY+c7a7neZwr3nb3+7ytav87kFHB9iJvoNpHJ3rWhcwDrZZa3wQAs+bU0j7" & _
"+jyIWstAHFfX+ie4HvJpwGMTYG8EEjZP9s6jPe1sB/3bR0/60n/+82RHAjqQkPlG" & _
"bAIe05gG5Zugdaxvs+pyGATGn3YbhDC4uueu49WzvvWux34HhUi+5jXP+c47P+3Q" & _
"N73pQQ/953d+85vXfCEa/tF3v8ue9g3ndlmF8XQtvZqgPz0FC8QHeWlgXeskoHzs" & _
"4QGPL2yf9di3/ttFUHr+S4H/APh/a+d/pfd82ScBYFcI9AcPBfB9TUACtYcDg1d1" & _
"ZXAK4RYkCfFZP3ULd1Br7ieBHkcC8dcEsdeA9HcGhUAFSCABK4gEfqALfvCCIhCD" & _
"IqALNSgCOJiDAhiAPCiAfpCDPxiEUhCDMdiCVNAIhfAFCzgNDdgE3iCCtXd74nMH" & _
"5HCBc7NgfIZx9YAPcgB54gCCIch13uANTLiAXwAFyScBLCgBfnAPLxiDQziDcWiD" & _
"NhiEM3iHP1iHd3iDdFiDRAiD96CGLEgNUHAGSsiA/tMwhlwHhTjQBxNIa/gQBru3" & _
"KweBE3aDcY1ndR8YgiNIhgVghmcIBYIoAYEIgzRohz+Ig3b4fzqYg66oing4g0HY" & _
"hn6ghitYCIT4BWdwBgxYAE34gBDoiIMnDbVGChYoN1Ejdek3AuJAa4MHhsUQf97g" & _
"i764i6EIBdQgiESIirD4it74jQDojam4jbSohoQIBV+Qjrzoi95gD09IAsXQB3og" & _
"gdLQjHJgBuXHWU8RINWEccBCa5AHjSI4hg1YAIYIAqFIDdmohtu4h+D4kBApjngY" & _
"g4JIiOcIArvYi4oIhcKIA10oDuQ3iQ5zEBooCOrXjF8ogXoQjSQwhvZQjWeA/pAg" & _
"oJA0yYan2I0RmZMPOY7bKAE0aZEySY3t+I7FoAfCCHlygCUi2VmwloUmeQcAiQNa" & _
"4HEs2Y4wCQIzWZNsyIYO+Y1gIAJfGZZgOZZiWZZkCZEUWYs+qZBYiZFnwI554A3R" & _
"OI8SiJLOYIGtNpKwVjwY9z5d+Iw4EI8kEJf28JK7CAJQkJVUYJNE+IphCQaQGZmS" & _
"OZmUSZlgCZlj+YpEqIZUQJNtuYuF6Q15IIIkQJf1KA4VWH5rxY9G8VaC8D6nCYJF" & _
"EI3taJjE0JadSQXgAA5+sAZ+MA/zgIOVOZzEWZyVmYPzEIO+SQV+QA3yQA2IiZH2" & _
"cAbu+ITx2JHNuDCs/gZ1AgESBVJdp3AKidCMOKAHKxmNERABhXmbIEAM8kAFVLAG" & _
"vLkGyQmcYDkPktkGkKmf/NmfYNAG/gmg/xmg/DmcwFmf8rkG8CkPIIAHWFmY9pCe" & _
"8GieEogP0sACeBk80rUhVNOXiYAD+KAFOFAEs5kHeWAPdAACMNCg8iAPu7kG9Emf" & _
"wAkG89CfAHqjOJqjOrqjPJqjNPqjwbkGIiCfu9miDjoLIEAHEWqiRTmP+IAPBxAP" & _
"x7gV44YWpFRKp/A+T1qeK2mi6gkDKzoLeNCiMAqjBzoPJtAGNdqjPDoDAOqmbtoG" & _
"cMqmO1qjZzoPMFqk8oAHeACmKBoBJkqievCk/vjAD1LaRnkmSgPRjyZ5CneADyBq" & _
"niaaB1+qomPqomUKnKmApgOqo3A6A6AaqqI6qqRaqnKqo6nQBqkABiZwoGUKDkaK" & _
"B2fgp+lZDEVgnoOKA3eJlxK0jwThVlgaD2UgDpCqBSs5mOppDyvKpy0KDmWqAGi6" & _
"pgAKDadaqtZ6rdgKqjuaCpuqADHqonvqoDBAnfYQl0VQmhUqDskgpZull90pdf4Y" & _
"D84gDlpgrLMZChFAB3QAA32KB6iwBh+gAAKrAGlqAtAADTNwsKD6Bm8wAwy7sA3L" & _
"sBIrsQ47sQ5bsRMbsRcbqgCapqpqAqngrd6KCqiABwmgojCgr4GKq08q/gx42Wpw" & _
"UhjVlH7xQAYhigMcUAReuq9imgAJsAaoELAEawIGi7ChmrFA8AZJu7RA0LRO+7RQ" & _
"G7VLq7RJq7QbC6rQULDcOrAfQLLyMAuzAKYRMAUrm6vvwK4a2nsCUW4mGQ+YoAX4" & _
"YJ5FgK9ToK9gmwAkK7SlQLQHi7AGgLFU+7TcAASDW7iGS7iGyw2KS7iIK7VKS7FY" & _
"m7VEK7ABALSokABimrLpmQeCCrf4YAPx4I+U2JRdEa/1ALd6kLNFkJ5g2rN52w5D" & _
"a7B/Gw4MqwGBm7iKm7u6u7u827uLC7VvQLsz8LcHS7QmILAf0LWYG7YpS7aCGqIc" & _
"YIzHeCm++qtI/gGe8aAD11CvejC3Y8uzs/C6BFsCJvC3BhC8tgsE2dC7QsANQvC+" & _
"8Bu/8ju/8Ou+udu+gwsEGqC/DEu8WVsKpSCwJOuzYauvZBsKRcABgzomp7Cdo2ul" & _
"n9WXCHAA+MABOYuv4EsLCZC8AEy0BmAA4RAOGmC768sN6wu/oAAKQqDCLJzCLvzC" & _
"MPzCKzzDKly/iru/tvsGH1y8ARwAyUvAs2DAeRAKCswB+JABCBCe7Rqze9kP1fWa" & _
"CDACxpqzeTAFU5AFMDALCUALHxAACtDBHxzC+5sNZJwNKNzCMZzGaqzG82vC+qsB" & _
"tBsOB+sEpRCyXavBzGvFU9C5+CAMSaya/uqjtpvSZ6eAAG+rBRwQCqFwxVlcA7WA" & _
"CgEQAAAMDWE8whpQxissAGm8ApzcyZ78yaDsyWwsAO+bDZasAR9sANBAxwHQDh/w" & _
"yGCbBXRgxaGgDRxQr4Pwx9Dlrmu7Eq6ZpfVwBxasyFMgClkAtrWQvO2wt5U8wmSs" & _
"yZqcwisACpwsC7Lgyddszdq8zdy8AtnszeDMyTJMytbADSMcwgbwDd8AwD5MC7UQ" & _
"y6JAyxasBYmwCuyal2prvXRCs7dQBsO8yDBwzLWQzJJcCur8wWJwydkQzdJczeDM" & _
"zRAd0RJtzaCcwr8ACuRsyeHwwU7Ayh/gzjUwC7IsCopswRxQBreA/gD+SL2K+q4r" & _
"UbptiwDKgMiJXMxYXAM1QAvDsMwl8A0g7MwCwNDYvM0OIAsOUNRHndRKvdRILdGi" & _
"bNHcYA2mLAYcXQKl0A7tMAy0ENJZkAW0TMT1SgZJPKX6yFa/qhhPHA8IQAoWPLdW" & _
"TASzgNMfMAyS3NMfrAFisNApzAfU7M3ajNRMHdiCvdQQ3cmgcNFBbckf/A10nNW0" & _
"gMcjPQVErAf0TAoIgLaJms/vGsFtqwNlcAfa4A7FDAPdkNN03Q4l4ASpvNACwAea" & _
"XM1/PdiyPdtJrc2izNe/8AsaYA1U7QQlYNVdXAs43dWi4A61zAGJgNK6rKEZyJcx" & _
"rQyJHNqi/tANcV0LkVwKJfDBaJDXQc3XfJDN1hzYc+AAc1De5n3e6G3e5L3eSr3N" & _
"/sAHK5Dbv2ANvI0GG/0NVh0AwzAMw00EU2DcJq0MCKDLvVq9v/rSpRTT9TAAd+AO" & _
"ok0EveDI1h0Avw0M2y0G3c0H380HDuABSq0O5D3e5b3e6X3eJD7iIu4AIK4OsjAG" & _
"suAPKwDfF03feA0MbPDbkczfNdALWRDPAH4H1/AASbydbvQRFdRnan0LyaANoeAO" & _
"ogDhOE3XcGAMbMAGBiAGGP4LGi4LHsDlRz0G6qAO5S3mJV7m6R3iYr7iLO7i/uAB" & _
"8c0H813fwGAAxlACcNADIN0LRFDc/u5gwXfgDAOeob06TcqIcVmKADYQCtfg4KIQ" & _
"4UpQC8PQAxV+5WKQ2xr+3R7uAGMwB2lu5p5e5mke5urg4mPw3ivwA4dtDf8gBmhg" & _
"43au3ydQA0qQBXvu4BxwDXdgA5cdupsFJ5rdnVDhJYae5Mmw6Kbw5LJ+ApGMC1V+" & _
"4dYwARru4S0+Bioe5mVuBHOA7dqe7dze7egd6mFe6v7w3j+Q27DA28Bg48aACz1w" & _
"AsKtBETg3+5wDbjuDCl9z8ioEDMrwbdgA+4Q2qZABKVdC8o+5Wxg4WIAC63t5h7g" & _
"4aI+5uXtBty+7RQ/8RVv3uBO6u+t4bkt5zduDDleC0qg58U9/gDaANqYEOhkzcsk" & _
"ydlZegs64AMOHvC98Ogn0AO4QOXAsAQJr+V84OEeDuZpLvESr+1GcPRIn/RKb/Ru" & _
"IPEoMAcoEO6l7gFt/gsTcO6rnu7r3u4nMPLdQASmYAoDUO8pvdzm9+towaGEnOQ2" & _
"wAIOHu81D+k4r/NYDgvQ7gEcLvRPL+YSn+1Gf/R+r/SBz+1Erw5RH+5tTu7mzuoQ" & _
"AAwpgAsB0AP8PfLx7uCgfQ02kNINbIUG7nsvfXExfQvCMADuEPDdoAQnoOw5zwYQ" & _
"gAYh8Ow/3/BjoPdzUPRFv/S4v/REX/thjgKzPwZ47wFWf+4h0OpskPPtvgsi//UO" & _
"PvZ3/pAMZS/o4saUC3Hkw44At/AAZTDzpY36PdADcMAFBy8G/zABWg70hj/05Z37" & _
"7I/0hO/06T/7VO8BPzAB5i8Gxc8GKVAC3+/u8B7vAGFqwLU7LFbdQhDvlCBBnTr0" & _
"6/fqj8Q/FS1erGju1at+HTp0YngKwa1bBMqYMkWkm5ITJ3qkSAEMQggxsPh4wDlm" & _
"jDoUKNzMcRPUyFCiRY0eDerGJwqeYzw4/fFjAixYYpZAYJMCV4+WSpR0I2KKxYCB" & _
"BEgiWNjQY0SKGN1a3AjxY8h4I3UIG8CPiMpdu4a9NCbz3z9YE256QDGGqVKhboys" & _
"W/cY8mTKkx8nncO0p84kHqJO/q0aAhgXrT24egXLz93Aa8l0IECbdm1EjW/fmpvI" & _
"sSNIQafq3nrAj0VKSkp2uQQMARhhWD9yKuYJFKhjx5EfX7ee3Qj1oD2bJvHnecJU" & _
"Mf+wat26p5aSBURUj72W4QFCtAw7OWRrW/8rjXJ5+7bLBlPK2GullnrAhQtjrmLO" & _
"uad6QiGzxrCrTDLL1klKKQg580yqCQaD4LytTtiFvb1YcIeFa67BRAeETkkLv4gm" & _
"0m8/jjz67zcdlBmQEkoWYOkEXnjhgoslBhvPQcV6ynA7yiysDDI3MGSMqTGScMqD" & _
"bcaDJYSrSMMln5ZKpMQ9FuBTxsWEYlxrI9xqdKu2iHYD/glG2G7RYQSUiCiOB5d4" & _
"ScGYEJGcwIPOIJSwuimjfFLKpCBEIYlItRxvghBEIy0F0/Yg05X3yHKNPhgZalOi" & _
"tuDEaKMb5+pNx1WS4YefH5XY488UuIAgDcIm2MbQJHjyKUNGGc1Qw0gn3eaHLagK" & _
"IUQwxdyFhwUo4UessZJZRU2F7Cv1TVRviwtHuux6NdZZT9hjyBRyDeGfCarByVAI" & _
"i8VwWCnrhTTSK7X8oZou04AAzAp62IO9bqot49oHXluT24dmPPVbizSKa7eQAMSz" & _
"Hlh9XGCXPXrI59ZBo4Bli22SkBTSoOpdlFEU1nk5X5R73WLZSyEAhAtWcKmA0wU8" & _
"/uWnDFAXRkihhe57eKM/vJUYI4o7+qjOuux6QBh+XFmg449ZgQmCYEKgagucUE6i" & _
"Spgnexnts2OGkOzOtrC0S2dTGNjnBWItQ+hkiL4lnm3VesjNpmtUFWqGWo2HJB2q" & _
"5qebHz0GWeSZqKqGV18hhTnmtdfON9KZl63mZkAAoZvgZ7LGWyBsdWD4b4cCN3Xw" & _
"25auWNxWR8JzlRGuzhrykNcNJo0Q/DXZ7WMz35zttj3fZkt/Lw0mZ1xYQfcZ9mLN" & _
"QKwRsm09RhkFZ1r2i/hb9b7eMGZ9FQKwznqPrVM4Jtc0oqim5i3cdiPleZmU2W37" & _
"Qw9BGnLGClZUoAInOJ0r/lyRgTJkQBncg43rvqc08RFONxYbl110YAMfsO8ZtQrZ" & _
"MbgQjK8Nr2TFc5ukVOg5z/mvZgAMQfQAQcADPuN02CuDM2wAwYY5jC0Rq6DTclO+" & _
"w/kNdzpYxQPIwD4egPB3JBQe/epnvxRW8WTN20I1tHipGI7uGDurIer4kYEMjMAW" & _
"rINNDwH3w4kFcXa1Y1Vv0ognJBIgDlm7QBNPkI8hiRCKl5LiFO03yP9pMQpRCCAJ" & _
"AfFFVvQgE3vI2t1i5QwCcI8+f1ujqiQSPjdeBDdw5M3tFMe6ByjDBwu4gPv2kA9W" & _
"HOMYgIDiIQMpSEJq0ZCXEqAXaeg+VMbBFT5whjLO/ugi+tTHh2zsJJxMpRvb3U6D" & _
"q1iFDcgQhzy6Lx+s5IUrRxe8NMxPlt/8ZjcV6cUvViAfe8gEKhXoihHskHVqis3h" & _
"XgcRVSXzW59kZhxhNDU6Ls4GI7hAHh+5SgJqc3SwJCE3xalIGS7SlebsGSQvsIAO" & _
"tvMBlkzjqI5ZT3ves3BQM9/5+PlOaNpAGQFV5SpZyQpsuNKgowvEQcnJyAqwIhJ7" & _
"4EFALxAHH5Bhh9yDZzwbMk9kdlRiT/PPfwB0J5KuwhYEAOgFmKHKfBiQgK0sqEuv" & _
"2gIDVuCmzMiETn0gDALYAprvLKZGSTUbjhr1nkOUSzPLsVQNIhGaTyWDMDIx/tU9" & _
"3DQSXs1HJAIL2L8aUJVhDegIygpNoJ5lTWkBHOwo6NbBUYyZ9wmlb/jZT7s+wBaY" & _
"UMYIhCGMlLqPrynlQSZ4MNoRKAMTZmUsWi8Jo3LYB2n0bCtlB0c+iIA0s5qd4zvT" & _
"x9gH2AATBFBGckWb1xGMgAzJJcBrL8rYxjo2NpBFWtImq9vKDvGCzUTcZoU7XOom" & _
"EZrTNW95geqi16RVrdmV7Ca560ZNxjWOIp1a4kY53mypt7/rlW0x/XaK2sqTqBzh" & _
"D43m28mPeiRqhzsfcOdIEs6O18Kss24EjQbZoc6GjUBccNNwU5u4rOrBEIYRcKd2" & _
"J9xR2MUIKaaGNwzh9Q4/DLcgDnEQyVcx+4b0cClWcRqFPOSE+M3IKaYxfHv7Q/nm" & _
"2KjL/K6DfYxiIO9TIVdOMZbTwmGQvM7DmnQyZd/0SaRCTcpTPlxta7sQNs+VIQWG" & _
"cJeV3FswZyTMusVnfeUC0qiFksZ/TvJQvWzjG1MEx3em7I4vaGYcNRqzDYE0ZpEG" & _
"Xw/TebKcRDSeKwJl3UTZwVIG9aA/vWRLKy12mc70iL3b6SU/xNWu7gjUSF1qjmIa" & _
"1WE+taJLPGtes1qTba3NrYXdRjvr+tfHRrap4TJsZsfpVJ+kkbFjd+pmV9ujxFZw" & _
"G4NtZ2t3u7tLA7e3xT3uTAcEADs="">" & _
"</th></tr>" & _
"</table></body></html>"
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0, $embed = True)
Local $objEmail = ObjCreate("CDO.Message")
Local $objBP
Local $szDrive, $szDir, $szFName, $szExt
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
$objEmail.MimeFormatted = $embed
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
if $embed = True Then
_PathSplit($S_Files2Attach[$x], $szDrive, $szDir, $szFName, $szExt)
;~ $as_Body &= "<img src=""cid:" & $szFName & $szExt & """>"
$objBP = $objEmail.AddRelatedBodyPart($S_Files2Attach[$x], $szFName & $szExt, 1)
$objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<" & $szFName & $szExt & ">"
$objBP.Fields.Update
Else
$objEmail.AddAttachment($S_Files2Attach[$x])
EndIf
Else
ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
SetError(1)
Return 0
EndIf
Next
EndIf
If (StringInStr($as_Body, "<") And StringInStr($as_Body, ">")) or ($embed = True) Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
If Number($IPPort) = 0 then $IPPort = 25
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Set Email Importance
Switch $s_Importance
Case "High"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
$objEmail=""
EndFunc ;==>_INetSmtpMailCom
FileWrite(@DesktopDir & "\Essai.htm",$Body)
_INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl, true)
Exit
Merci encore de votre aide,
Bonne continuation,
Gnif.
Re: [..] Envoi de mail et image dans le corps du message
Posté : mer. 04 févr. 2015 18:09
par walkson
J'ai essayé votre code mais aucun mail n'a été envoyé. Le script se déroule normalement puis rien, pas d'erreur...
Par contre j'ai essayé avec mon script en remplaçant le body par le votre et j’obtiens l'image d'un bouton orange avec thunderbird, donc il n'y a pas d'erreur à ce niveau. A tout hasard je vous joints mon script
► Afficher le texte
Code : Tout sélectionner
#AutoIt3Wrapper_Run_AU3Check=n ;syntaxcheck désactivé plus de probleme avec "to"
$file = FileOpenDialog("Fichier à convertir", @DesktopDir, "All images (*.*)")
If @error Then Exit
$f = FileOpen($file, 16)
$t = FileRead($f)
FileClose($f)
$t = _Base64Encode($t)
Global $as_Body = '<HTML>' & @CRLF
$as_Body &= '<body>' & @CRLF
$as_Body &= '<img style="width: 200px; height: 200px;" alt="Embedded Image" src="data:image/png;base64,' & $t & '">' & @CRLF
$as_Body &= '<font color="yellow">' & @CRLF
$as_Body &= 'Hello World' & @CRLF
$as_Body &= '</font>' & @CRLF
$as_Body &= '</body></HTML>'
Func _Base64Encode($input)
$input = Binary($input)
Local $struct = DllStructCreate("byte[" & BinaryLen($input) & "]")
DllStructSetData($struct, 1, $input)
Local $strc = DllStructCreate("int")
Local $a_Call = DllCall("Crypt32.dll", "int", "CryptBinaryToString", _
"ptr", DllStructGetPtr($struct), _
"int", DllStructGetSize($struct), _
"int", 1, _
"ptr", 0, _
"ptr", DllStructGetPtr($strc))
If @error Or Not $a_Call[0] Then
Return SetError(1, 0, "") ; error calculating the length of the buffer needed
EndIf
Local $a = DllStructCreate("char[" & DllStructGetData($strc, 1) & "]")
$a_Call = DllCall("Crypt32.dll", "int", "CryptBinaryToString", _
"ptr", DllStructGetPtr($struct), _
"int", DllStructGetSize($struct), _
"int", 1, _
"ptr", DllStructGetPtr($a), _
"ptr", DllStructGetPtr($strc))
If @error Or Not $a_Call[0] Then
Return SetError(2, 0, ""); error encoding
EndIf
Return DllStructGetData($a, 1)
EndFunc ;==>_Base64Encode
;====================================================== Envoi Mail Confirm =======================================================
SendMail("sujet",$as_Body,0)
Func SendMail($s_Subject,$as_Body,$s_AttachFiles)
$s_SmtpServer = "smtp.orange.fr"
$s_FromName = "tonton"
$s_FromAddress = "tonton@autoit.fr"
$s_ToAddress = "tonton@autoit.fr"
$s_CcAddress = ""
$s_BccAddress = ""
$s_Username = "tonton@autoit.fr"
$s_Password = "password"
$IPPort = 25
$ssl = 0
$mail=""
$mail= INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username ="", $s_Password="",$IPPort, $ssl)
EndFunc
Func INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject , $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password ,$IPPort, $ssl)
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
;$S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $Ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
$objEmail.Configuration.Fields.Update
$objEmail.Send
if @error then
SetError(2)
return
EndIf
EndFunc
Func MyErrFunc()
Return
EndFunc
En parcourant le forum us j'ai trouvé un script qui n'est pas du autoit mais que j'ai essayé d'adapté. Le mieux que j'ai pu faire est d'avoir une image jointe au mail. Je mets ce script si cela peut inspirer quelques personnes plus douées que moi
► Afficher le texte
Code : Tout sélectionner
Const CdoReferenceTypeName = 1
Dim objCDO, objBP
Set objCDO = Server.CreateObject("CDO.Message")
objCDO.MimeFormatted = True
objCDO.To = "you@yourdomain.com"
objCDO.From = "you@yourdomain.com"
objCDO.Subject = "Embedded image demo"
objCDO.HTMLBody = "<html>Check this out: <img src=""cid:myimage.gif""></html>"
' Here's the good part, thanks to some little-known members.
' This is a BodyPart object, which represents a new part of the multipart MIME-formatted message.
' Note you can provide an image of ANY name as the source, and the second parameter essentially
' renames it to anything you want. Great for giving sensible names to dynamically-generated images.
Set objBP = objCDO.AddRelatedBodyPart(Server.MapPath("/images/myimage.gif"), "myimage.gif", CdoReferenceTypeName)
' Now assign a MIME Content ID to the image body part.
' This is the key that was so hard to find, which makes it
' work in mail readers like Yahoo webmail & others that don't
' recognise the default way Microsoft adds it's part id's,
' leading to "broken" images in those readers. Note the
' < and > surrounding the arbitrary id string. This is what
' lets you have SRC="cid:myimage.gif" in the IMG tag.
objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<myimage.gif>"
objBP.Fields.Update
objCDO.Send
Re: [..] Envoi de mail et image dans le corps du message
Posté : mer. 04 févr. 2015 18:51
par orax
walkson a écrit :J'ai essayé votre code mais aucun mail n'a été envoyé. Le script se déroule normalement puis rien, pas d'erreur...
Même chose sans SSL activé. Avec smtp.laposte.net - port 25 - sans SSL, ça n'avait pas l'air de marcher. Je n'ai pas cherché plus loin, j'ai juste changé le port en 465 et mis $ssl = 1.
L'image s'affiche bien dans le webmail de laposte.net et dans Thunderbird.
Re: [..] Envoi de mail et image dans le corps du message
Posté : jeu. 05 févr. 2015 10:55
par Gnifrus
Bonjour,
Merci orax et walkson pour votre aide.
Je pense avoir un début d'explication à mon problème.
J'ai essayé mon script à la maison, et ça fonctionne.
Il me semble que c'est la version de Thunderbird qui pose problème.
En effet, ça fonctionne correctement chez moi car je suis sur la dernière version de Thunderbird alors qu'au taf, nous en sommes à la 2.0.0.(on ne rigole pas !
).
Peut-être que ce code HTML ne fonctionnait pas avec cette version, ou que le code HTML de la balise <img> différait à l'époque ?
Je vais continuer de creuser au cas où je trouverais un code HTML autre, gravé jadis sur des tables en pierre...
Ce qui est dommage, c'est que nous ne puissions pas mettre à jour cette version pour des raisons de validation nationale.
En tout cas, je clos ce topic puisque le problème semble venir de là...
Je remercie l'ensemble des participants qui ont pu me donner de la matière afin d'avancer et accroitre encore un peu plus ma (petite) connaissance.
Bonne continuation à vous tous, et très certainement à très bientôt !
Amitiés,
Gnif.
Re: [R] Envoi de mail et image dans le corps du message
Posté : jeu. 05 févr. 2015 11:28
par Gnifrus
Re...
Bon, après quelques vérifs sur internet, il semblerait effectivement que le schéma Data-URI ne soit supporté par Thunderbird qu'à partir de la version 3.
Donc, inutile de chercher plus loin une solution à un problème qui ne peut être résolu du fait de l'obsolescence de l'outil !
Merci encore.
Gnif.