Macro to create email from Excel

[ChristinaAC]

Hi All,

I would like to know if it is possible, and how you would create an email from excel?

I have a pivot table, which I would like to send via email. The reason for asking, is this pivot table contains a number of information that needs to be sent to different parties, so I wanted to automate it as much as possible.

I have worked with VBA a little, but really have no idea where to start which this.

I hope I am making sense.

Thank you so much

Christina

 

[John_w]

There are various options at Mail from Excel with Outlook (VBA)

 

[BKrukowski]

Here is an email code that works for me the ErrorHandler: should e the last thing in your code before End Sub

Dim OutApp As Object
Dim OutMail As Object
Dim MyEmailMsg as String 

 
 

 
 Set OutApp = CreateObject("Outlook.Application")
 OutApp.Session.Logon
 Set OutMail = OutApp.CreateItem(0)
 On Error GoTo ErrorHandler
 With OutMail
 .To = 'Reciepent Email Address
 .CC = 'CC if any - remove in none
 .BCC = 'BCC if any remove if none
 .Subject = "
.Body = MyEmailMsg
 .Attachments.Add '(File Path is added)
 .Send
 End With
 Set OutMail = Nothing
 Set OutApp = Nothing

ErrorHandler:
  If Err.Number <> 0 Then
     MSG = "Error # " & Str(Err.Number) & " was generated by " _
         & Err.Source & Chr(13) & "Error Line: " & Erl & Chr(13) & Err.Description
     MsgBox MSG, , "Error", Err.HelpFile, Err.HelpContext
     
     On Error Resume Next
     End If
     
 On Error GoTo 0

 

[ChristinaAC]

Thank you very much - I will give them a try and hope they work.