SMTP sending an HTML or rich text format message

M

melamoud

Active Member
Licensed User
Longtime User
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
 
Sort by date Sort by votes
M

melamoud

Active Member
Licensed User
Longtime User
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 ?
 
Upvote 0
M

melamoud

Active Member
Licensed User
Longtime User
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
B4X: 
<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">
 
Upvote 0
M

melamoud

Active Member
Licensed User
Longtime User
and this is the code that I'm using anything wrong with it ?

B4X: 
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
 
Upvote 0
M

melamoud

Active Member
Licensed User
Longtime User
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
 
Upvote 0
M

melamoud

Active Member
Licensed User
Longtime User
Anyone can think on a way to use reflection to do this ? to change header attributes of an SMTP object is that even possible ?
 
Upvote 0
stevel05

stevel05

Expert
Licensed User
Longtime User
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.
 

Attachments

  • emailimg.zip
    12.5 KB · Views: 213
Last edited:
Upvote 0
You must log in or register to reply here.
Top