Mail Userform into outlook mail body

[Yakuz]

hey all,

is there a way to export the userform as a picture, like for charts?

sh.ChartObjects("Chart 1").Chart.Export _
Filename:=Fname1, FilterName:="GIF"

thanks in advance !

 

[Yakuz]

hey all,

is there a way to export the userform as a picture, like for charts?

sh.ChartObjects("Chart 1").Chart.Export _
Filename:=Fname1, FilterName:="GIF"

thanks in advance !

I would like to use a simmular code as this:

TempFilePath = Application.DefaultFilePath & "\"
    Set sh = Worksheets("Charts")
    Fname1 = Application.DefaultFilePath & "\Chart1.gif"
    sh.ChartObjects("Chart 1").Chart.Export _
            Filename:=Fname1, FilterName:="GIF"

   On Error Resume Next
    AppActivate "Outlook"
    On Error GoTo 0
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    'msg = ""
    With OutMail
     .To = ""
    .CC = ""
    .BCC = ""
    .Subject = ""
    .HTMLBody = .HTMLBody & ""
    .Attachments.Add Fname1
   .Display
  
End WithOn Error GoTo 0
Kill Fname1

 

[John_w]

See the code linked here http://www.mrexcel.com/forum/excel-questions/331211-save-userform-bmp.html#post1630026 for saving a userform as a bitmap image.

To include the image in the email body, there are two ways I can think of:

1. First insert/import the image into a worksheet cell then use the MailEnvelope object to include the the top left and bottom right cells range surrounding the image. See Mail selection, range or worksheet in the body of a mail with MailEnvelope (Outlook only).

2. Use HTML < img > tag with the src='cid:image.bmp' attribute and include the image as a file attachment.