SMTP sending an HTML or rich text format message

[melamoud]

Hi,

anyone knows if it is possible (and how to) to send a mail message with picture embedded in the text (not just an attachment)
thanks

 

[Erel]

See the answer here:
embedding image in html email - Stack Overflow

 

[melamoud]

See the answer here:
embedding image in html email - Stack Overflow

thanks, not clear to me how to do that
some of the staff need to get into the header , I do not think I have access to the SMTP header right ?

anyone has a working example ?

 

[melamoud]

I built the code but of course it does not work, I put everything into the body including the encoding (hoping I did it correctly) but I guess unless I have the multi part attribute in the header it wont work
right ?

 

[Erel]

I meant that you should try the embedded solution:

<img src="data:image/jpg;base64,/*base64-data-string here*/" />

 

[melamoud]

I will try the line you suggested ..
Thanks

 

[melamoud]

trying not working

I even took a base64 code from an email so I'm sure my encoding is not the issue,
here is what I'm sending, is this wrong ? (thats the whole message body)
I tried both with WEB option on or off
I even tried to send this manually from outlook

<img src="data:image/jpg;base64,/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAMCAgICAgMCAgIDAwMDBAYEBAQEBAgGBgUGCQgKCgkI
CQkKDA8MCgsOCwkJDRENDg8QEBEQCgwSExIQEw8QEBD/2wBDAQMDAwQDBAgEBAgQCwkLEBAQEBAQ
EBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBD/wAARCABmAIQDASIA
AhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQA
AAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWm
p6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEA
AwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSEx
BhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElK
U1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3
uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9UKKK
D0oAbJtIyRn6UiBQvygikUYGVOR6GuZ8efEDw18OtCm8Q+I7wQwRrtRFPzzP2RF7tUVJxpw55lUa
U681TpxvJm9fX1pp1tJeX1zHBDCu55ZHCoq/jXgfxC/a98G+HpZNN8HWr+Ib1AQ0qt5dtGf98/f/
AOA/nXzp8Wvjd4v+K2ouL6eSx0ZG22ulwvhcf35P77e1efQQT3M0dpbRSTzO/lxxRx75Hf6Cvjsw
4jnN+zwh+wZF4b0oU/rObu0v5P8ANnrPiL9qb4w6+WFvr0WkQsMeVYW6r/482Wrh7v4k/EK/fzLz
x3r8v0vXH9a7jwh+y18XPFapeXOkwaJayAHzNSba+PaJfm/76xXpNn+xAY4M6r8RGDH+G3sQB/48
1ef9WzfGe+3M9+ea8IZO/ZQULr+WPN+KPn60+JPxCsG8yy8d6/F9b1z/AFruPDX7Uvxg0EqJ9ei1
iFRjyr+3Vv8Ax9cNXpN7+w+jw/8AEt+Ishl7C4sgU/8AHWrzjxf+yv8AFjwrDJeWthb61axgySS2
MoDYHcxtgj/gOaFgs3wj505hHNeEM3fsp8mv80eX8We5fDv9r3wb4glj03xjav4dvJAAsrN5ltIf
98fc/wCBfnXvdpfWmoW8d5Z3Ec8EwDpJE4ZGX6ivy0dGDyQyEK6dRXovwo+N/i/4U30f2GeS+0Z2
xc6XM+VA/vxn+BvavQy/iOcJ+zxh4GfeG9KdL61lDuv5P8mfog4UjLDPvSJtAyFx9a5fwB8QvDXx
J0GHxF4bvBNBKoWSJjh7d/7jr2aunYZA3Nj0Ar7GnONSHPA/H61GeHqOnUjaSJxRTBRVknzL8DPj
zrvjz4dWHiS/LGa4LAkn0A/xorzn9lhEX4NaSFUAbm6fRaKAPuCg+9FBOBk0AZeta1p2g6Vdazql
wtvaWULTTysfuotfnv8AF34pat8VfFU+t3cjwadbl1021H/LKHsf99/4q90/bL+IslpaWXwz0+42
m8QXuobRz5O792n/AH0M/gK+WLCwv9Z1G00jTIHuby+mSCGJRwzv90/hXxHEeYVKlb6nSP2nw8yG
lg8M84xXxS+C/wDL1ZW64OMfSvpD9kfxn8OtK1OXQNa0q0s9fuifsmrTkYuU/wCeWW+44/8AHqwv
i9+y/qnw88IWnizRtQ/tJLWFDrUbnaY3/vw/7O7+H71eFJIG5J5656EGvHprE5HiYVKsND6mvUy/
jbLJ4fDV7NfL+kfof4g+PXw80V3t7fUZtYvI+Ps+nRGbJ/3/ALv61x95+0tE8jQWXw112ZWOS00k
SD9GNfMng/xJe+IpLPwzf+J7PQLWNHMl59nZprj/AKZoq/x+/FepwPYaTaCKxF15MY+SS7ZXm+r7
a/d8hwmVZtho1qDc31/un8W8bY7iPhXMqmBx1P2MY/BP+dfzRPS9Q/aPuRpZTSfAl/HqLriNbp1E
KH1dlOcfhR4Os/D/AMUbx5vHfxJi8Q3qEMdEtJGtLW29vKyHl/3mrwfXvGRkkeKzk31xOoXCS3S6
iLmS3vFfek8DmORH/wBlxX0q4RhVp/uHyTPyyfi7OjivZ4iHtYH2r8QvgD8PfHeixaW+jwaVc26b
LS8sYVjkhPbOPvL/ALJr4j+I/wANvE3wu8QyaH4it87yXtrxf9Tcp/fX0P8AsV9BfAz9pa9TULTw
H8TbkzNO4gsNXP8AG38KTe/+1+frXsXxk+GcXxT8MQ+G5DbofP8AO+1smZICFYoY/q21W/2Sa/Ju
JuFqlKrKnVVp/hI/q3w08TadehCpQqc+Ge8H9g+JvhJ8U9W+E3iqHWrEvPYzFF1C1Lf8fEJ6n/fT
+Gv0N0TW9O8Q6Taa5o9wtxZ3sKz28qnO5W7V+ZOt6Tqfh/V7vQNYgEV9ZTPBMo6K69CPrX01+xp8
R3YX3w01K53CPdeaYXb+HP7xPz+b86+U4fzCdCt9Tqn6Xx9kVPGYVZxhvijv/eh3+X5H1jRQOlFf
bn40fEP7LP8AyRvSf95v5LRR+yz/AMkb0n/eb+S0UAfb1IxABZjwOTS9R0rM1y7Ww0bUL0j/AI97
Wab/AL5Q0m7K4U4e0aR+d3xi8UTeMPil4i1t5A8ZvHt7f/rjF8q/qK9M/Y38GR6947vfF13GHi0C
22wZHSeXIz+Cg/nXgJkkuWeV/vyu8n5sa+z/ANjXT47L4XalqpUB7zUZWZz3VEA/oa/Pclh9czRz
qf4j9/4wrLJ+GXh6HaEPwOT/AGkPitbTeNU8IG4dtN8OolxcwxDJvL5x8kYHfap6f3m9q8r8c/BX
xZoHgy2+JOvRWOkS6vdlY9CA/wBJWNvmQj1fqWX+H9B678F/hnp8mo6/+0V8UFEMDXt1faTb3Qwt
vCGbFw4PUkDCe3PcY838YfFXUviJ4tm8X6jCwt4N8Ok2rNxbwf3sf33/AIvb6V+4V+H8NxHQWWUo
e5Be/P8Avf3T+MsJx9jPDnHT4hxdRudV+5R+zyf3v/bf+HPGEk5yOCDn3Br2P4OXng74haxF4T+J
fiPVrK4mKpYSQXCwwTtj/VvxuD/3f71ed+ILOK7u5tQs7dEaT53hSsAjMmTkEEEEHkEdDnsRX5Ji
8PnPAeY+z1gv/JZR/wAz+psvx3CXjvw9DFcqnL+SXxUpf3vL/wAlZ9T/ABP/AGYJvC2iXPiDwPrN
5qCWaNcXNjebWd0X72xlA/75r5zkvDcgNnCdQMdK9c8H/tc+M/DnhZPDWr6BD4hlgQwpeT3RimZM
YCONp34/vV4fLdOY2eOLYJHZtn9zJJr994Az6vnWFnVnPnWlj+HfGbgPCcG5vCjRp8kp3v8Ayf4o
j7xkukeN2I39GB5X3Ffcv7L3xMl+Inw5ht9auC+s6DJ/Z94zH5plAHlzf8CXGfcGvgmW5KD5T1r6
L/Yp1O4sviJrWiBf3Op6St03s8Thf/ZzXpcZ4Kni8tlW+3A8jwtzSeWZ1DC/Yq+6Wf2z/A0el+Kd
N8bWsYSPWYvst1gf8t4uUf8A75/lXjPws8UTeDfiJ4e8RrIEFtqCLNn/AJ4v8jfoxr67/bD0qK9+
EUuoFMvp+oW86/8AAjs/9mr4ZlYxxu4/gIb8jn+lfy7nNP6nmKqQ/wAR/o1wXWWbcPPDV+nPA/Vx
HV0DoeGAYfQ0uKwPBWonWPCGh6k/LXWnW8rfVkBreOdvAr72nP2kLn4TOPs5uB8Rfss/8kb0n/eb
+S0Ufss/8kb0n/eb+S0VoQfbvbBNZfiC2N5oeo2yfeltJk/NDWrSOiyKUYZDAg/Q0nqrFwlyTUz8
p1BUeSD0dx+TGvtv9ja+jufhRPacb7PUpo3H1UN/Wvkr4m+GpvCfxC8QeHHj2fZb+ZogP+eLtvUf
98sK9i/ZI+Itn4QXxbpWr3AS2j099YhycZMS/vPxxt/KvgMj/cZo6H/bh+88dOOYcNPGU/ghyT+V
jo/2t/iOby+tPhLo0+yCFFvdW8vpj/llBx/31+Ar59knEaggdOKq3niu+8Q63qXiXV5Qb3WLl7qQ
n+FX+6n/AAEYWqdxc4bYD3r+t8hyuGV4KFHru/U/yw40zivxLnE8TU+DaH+E6Lwf4b1Dx54s0/wh
pd7b2t9qTP5E1xu2fIpb+H6V23jP9lH4leF9BuPEqXem6sbT95Pbaf5nnBP42RWHzn2ryrSfFOqe
GNf07xLpcoF5pVwtzATwrBeqN/v/AHa+5vAX7R/wq8c6RDeyeLLHSb3aBcWGozLbyxvjkfN94e44
r4bxGy+vmVKFNx56fp8Mj9p8Cc7w3DeIniac+TEecrRnD+U+AxLuORn056j2PpW14R8KN468QweH
k8S6dotxdArDJe7jDLJ/BHuX7hr079pnR/g/Br8fiDwD4t02TUtSmzd6XYSCSNn/AOe29flTH92v
GMHp3Bznpz61+G4TFZzwNi/rELwU/wDwGUT+1syyzhfxhyf2Ffkm4f8AgdKX+X5nuh/Yb+KBwD4q
8Ok9QP3v+Feq/Ab9nfxb8LPHL+Jtd1jS7i3Omy2Xl2u8vud1bPzDp8tfLXh7WvE+raxDZT+PddtB
O/l5fU5PLAH419ffs5+ENU06z1LxVqOt6ldRXsiW2nreXUkv7tB88g3n+Nv5V+uviSrm2T+3WJUl
P7HL7x/KlfgShwrxP9SngZwnD3oT5vclH+aJc/a1u4rP4J6pbyH5rue3hjHv5gb+lfBdwpKM+Oox
X1l+254qRLPw94IhmBeSR9RuUH/PNflX+Z/Kvl/wxo8/iLxJpWgWxwdTvoIFOOgL4/pX4xn83XzB
U4H9bcBUfqeQyr1dObnl/X/gJ+kvw0ge0+H3hy1f78WlWqt/37FdMTjJqC1hitLaG2VNqxKsa/gA
P6VMScGvuqcOSCgfhVWfPOUz4j/ZZ/5I3pP+838loo/ZZ/5I3pP+838lorQk+3qDnHFFBBIwDQB8
fftleAZbLWtO+I9lbYg1BPsOoHtHOv8Aqn/4EuV/AV83RyFC8YkkjWRPLfYcfu6/Snxr4R0zxz4X
1DwlrUfmWt/CY3OPmR+qOv8AtK2DX53+N/Bus/D/AMT3XhbXkIuLV/knbhZo/wCB1/2W7+9fDZ7h
a2X4uGYYf+pH7ZwLmlDPcrnkeM97lXL/AIoP/L4T2v8AZ6+A+i/Ej4beJ7zxGu19VnFjp10i/vLX
yRlZU9PnPP8Ae214d8Q/Bnir4V68/hfxvp7QyA4tb4D/AEe9jz99H6Z/2PvLXZ/BH42a18ItcYNG
95od4/8Aptnv6D/nsno3/oX8vs8S/DP41+Ct95Hp3iDQLkfOs4UmJvfPMbr+Br9R4a8Q69arKdb7
Xxw/+RP538Q/A7CZdTjQwy5IR+Cf/tsz81mmeVSAePrmq0ltBcsGmgEp6ZIya+g/Hv7O3wxk16TR
vgj4p1TVtZ34bSIALy0th/01uMgQqPdi3sat237GnxYtI0kGoeF5XI+fdcSr/wCy1+qU+KMtqw5p
z5PKZ/OWK4EzvCzlHC0va+cD5/stGMa7re2Xn0GK6Kz8MaxqNpNdWtm0zW6eZIV4Ar3jRP2QfiNM
wGp+INDsI/70Qe4c/oK9k8D/ALOXhfw2kMviDUrnXZ4hxDIoitgf+uS/e/4ETXyvF2PyLOsBLC1f
fb2/un3Phll/GvCueQzTDfuYfbUn8cf5ZRPgwgOpAGeor6Y+AP7Tdpoenp4N+I9yVs7GEnT9QK52
qi/6l/8A2Vvwq9+038ANLstPuviV4Q+y6eIvn1Kw3LCkwH8cPbf/ALA+99a+Vnw2D2PTNfzq3icg
xNk9D++qP9mceZapVVqv/AoS/wAjpPiV481D4j+NNR8VXyFUunIgiJ5hgT7i/j1r1j9jrwDJ4h8d
XHji6tx/Z3h9fLhcj7906/8Asi5/76FeJ+HPDmr+LtcsfDug2v2i+vptsI/ujuZP9gV+iXwr8A6b
8MvBll4U05A5gTzbq4C/8fE7/eb/AD2xXdkWGqY/EvGVDyONM2oZHlayrB/HL3f+3Dt6KB0or7o/
DD4h/ZZ/5I3pP+838loo/ZZ/5I3pP+838looA+3qKKPrQBH0KgDivNPjJ8GNG+LuhNa3RS11e0DG
wvtnMZ/uN/eWvTBt28k4pAGHJfj6VlXoQxEPZ1DoweMr4CvDEYefLOJ+ZHjPwX4n8Aa5L4f8U6Y9
ldp8sZ6RzJ/fR/4l9qxoL+6tont455TbTlDPbJK6xzbP76D71fpb408B+E/iBpLaL4s0eG+g5aMs
Pnhb++j9Vavlj4gfsb+LNImmv/AGpprVnjKWdw6xXSf8D+6/6V8TisixmArfWMA9P/Jj9qyrjnLc
/wAMsBnMIx5vi5vgl/l/28Wvhn+1n4f8K6bBoWp/Dmz0u2jAAfQ41VW9/Lbn8ya9e0/9q74K31vv
m8SS2b8fJNaSZ/8AHQa+Ite8KeJ/Csv2fxH4e1HTm9bi2cD/AL7FZBljBwZFB9zg1jDiLMKWlRc3
+I6K3h7w/jY+1wcuSH9x3/zPvi8/am+CWnJ5h8W/aG7JbWcrn/0GvO/F37bOkor23gjwrPcylSFu
b8+UiH1CD5m/MV8lBox92VfwYVf0vQtc1+ZLbRNHvtRnf/lnbwPI35jiifEeNxPuU0PDeH2Q4L95
XcpL+9JJf+2m748+J/jb4jXhvPFmtvcoj5itk+SCL3VO/wCPzViaF4c1rxVq8Gg+HtNm1C+un+WK
PoPr/cT/AGq9o+H/AOyL8QfEk8F54xmTw7p5G5kJ825k/wCAfdT8T+FfVfw/+Fngr4Zab9h8LaKs
DvgTXMo3zzH/AGm/yK0weS4nMJ+0xhz5txnlORUPqmVLmn/d+A5H4A/AjTfhTpj6pqLRXviK/QLc
3AX5IE/54xZ6KP73evYiQMleccYoIO3aO4pECg4DV9vQoQw8OSmfi+Px9fMq88Vip3nIkHSiiitj
kPiH9ln/AJI3pP8AvN/JaKj/AGVp4n+DWksjgjc3P4LRQB7N8a5PjgmqRj4f/FYeH7fPzRHS7S4z
+MsLn9a4BJv2qSo3ftBKT6/2Dp3/AMi0UUAL537VH/RwK/8Agh07/wCRaPO/ap/6OBX/AMEOnf8A
yLRRQAed+1R/0cCv/gh07/5Fo839qj/o4Ff/AAQ6d/8AItFFAEU8X7T91GYbr48wzIwwVk8P6awP
52tcvffCn4s6lIZr74iaBK56sfCmlg/mLWiiolShNWlFP5G1PEVqP8OTXo2iK1+EPxTspPNtviBo
CP6/8IrpZ/na11NlZftMadEsGn/HO1to1GAsPh3TUA/K1oopQpU6fwRS9EFXE1q38Wbfq2/zLPnf
tUHr+0Cv/gh07/5FoM37VB6/tAr/AOCHTv8A5FoorQxDzv2qP+jgV/8ABDp3/wAi0ed+1R/0cCv/
AIIdO/8AkWiigA879qn/AKOBX/wQ6d/8i0qzftTjOf2gFPH/AEAtO/8AkaiigDsfgz8EbPwR4Csv
D0N6siwEkMAeeB/hRRRQB//Z">

 

[melamoud]

and this is the code that I'm using anything wrong with it ?

Sub encodeAndSendPicture (pic As String)
   Dim Inps As InputStream
   Inps = File.OpenInput(File.DirDefaultExternal,pic)
   Dim count As Int
   Dim buf(99999) As Byte
   count = Inps.ReadBytes(buf,0,99999)
   If (count = -1) Then ToastMessageShow("Failed to load picture",False)
   Inps.Close
   Dim B64 As Base64
   Dim bufEncoded As String
   bufEncoded = B64.EncodeBtoS(buf,0,count)
   Dim SMTP1 As SMTP
   SMTP1.initialize("smtp.gmail.com",465,"myemail","mypassword","SMTP")
   SMTP1.Subject = "test pic"
   SMTP1.To.Add("my target email")
   SMTP1.UseSSL = True
   

   SMTP1.HtmlBody = True
   SMTP1.Body = "<img src=" & QUOTE & "data:image/jpg;base64," & bufEncoded & QUOTE & " />"
   
   Dim os As OutputStream ' keep it in a file for debug
   os = File.OpenOutput(File.DirDefaultExternal,"body.txt",False)   
   os.WriteBytes(SMTP1.Body.GetBytes("UTF8"),0,SMTP1.Body.GetBytes("UTF8").Length)
   os.Flush
   os.Close
   SMTP1.Send

 

[Erel]

I haven't tried this method. It seems like it is currently not possible to embed the image as you cannot change the Content-Disposition header.

 

[melamoud]

Who can I asked to add the functionality of changing the header to the SMTP object in net lib ?

It does not seems to be a lot of work.

Thanks

 

[Erel]

You can start a new thread in the wishlist forum.

 

[melamoud]

Anyone can think on a way to use reflection to do this ? to change header attributes of an SMTP object is that even possible ?

 

[Erel]

You will not be able to do it with reflection.

 

[stevel05]

After looking at SMTP this afternoon, it appears that your problem was the same as the link here. That being an '=' sign is a special character, replacing them with "=3D" appears to work here too, there may be some more chars that need replacing if it doesn't work consistently, take a look here.

See project attached.

I don't know if there is a limit to the size of an image, you'll find that out if needed.

If you try the attached don't forget to change the email account and password and target email.