Dear expert
i want run macro to send charts through from list of precipitant in excel vba
i have 5 charts in sheet1 i want view the chart in body of text in outlook to particular mail id's
please find the attachment of sendchart
and desire result file also
Check this code where can i assign this task ?
Sub Preview()
I = Cells(2, "B").Value ' dynamising startrownumber to user fed value at cell B2
Do ' start the action ,buddy!!!!
Subj = Cells(I, "A").Value
Filepath = Cells(I, "B").Value
EmailTo = Cells(I, "C").Value
CCto = Cells(I, "D").Value
msg = Cells(I, "E").Value
Application.DisplayAlerts = False
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = EmailTo
.CC = CCto
.BCC = ""
.Subject = Subj
.body = msg
.Attachments.Add Filepath
.display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Application.DisplayAlerts = True
I = I + 1
Cells(1, "A").Value = "Outlook sent Time,Dynamic msg preview count =" & I - 3
Loop Until Cells(I, "C").Value = ""
End Sub
Bookmarks