: * excel-macros@googlegroups.com
*Date: *Tue, 19 Nov 2013 13:10:50 +0500
*To: *excel-macros@googlegroups.com
*ReplyTo: * excel-macros@googlegroups.com
*Subject: *Re: $$Excel-Macros$$ Stuck in attaching multiple image files
in email body
Thanks ashish koul, i tried and its working now
*To: *excel-macros@googlegroups.com
*ReplyTo: * excel-macros@googlegroups.com
*Subject: *Re: $$Excel-Macros$$ Stuck in attaching multiple image files
in email body
Thanks ashish koul, i tried and its working now but in a slightly
different way .! here is the line :
uuu = Mid(sImgPath, InStrRev
Thanks ashish koul, i tried and its working now but in a slightly
different way .! here is the line :
uuu = Mid(sImgPath, InStrRev(sImgPath, \) + 1)
HTML = HTML + img src='cid: uuu 'brbr
.HTMLbody HTML
But now the images in the body are shown as red cross rather then the whole
image.
: Re: $$Excel-Macros$$ Stuck in attaching multiple image files in email
body
Thanks ashish koul, i tried and its working now but in a slightly
different way .! here is the line :
uuu = Mid(sImgPath, InStrRev(sImgPath, \) + 1)
HTML = HTML + img src='cid: uuu 'brbr
.HTMLbody HTML
But now
$$ Stuck in attaching multiple image files
in email body
Thanks ashish koul, i tried and its working now but in a slightly
different way .! here is the line :
uuu = Mid(sImgPath, InStrRev(sImgPath, \) + 1)
HTML = HTML + img src='cid: uuu 'brbr
.HTMLbody HTML
But now the images in the body
try something like this
Sub sample_macro()
Dim objOL As Object
Dim olMail As Object
Dim bdy As String
For Each itm In Array(C:\Users\Public\Pictures\Sample
Pictures\desert.jpg, C:\Users\Public\Pictures\Sample Pictures\tulips.jpg)
bdy = bdy p align='Left'img src=cid:
Dear Coders,
iam new to VBA, was trying to automate my work, this is the last step of my
task, some images are stored at a path ( here the path is in sImgPath )
when i try to insert the image in the email, first image is inserted
properly, but when there is the second iteration, it deletes the