VBA to Create Mail in Outlook based on information in the sheet.

[CarlStephens]

Hello All,

I am looking for a code that will create an email in Outlook and take all the required information for send the email from the sheet itself. The body of the text can be copied from all rows starting from cell C12 and down, per the below screen shot. Thank you.

 

[Logit]

.
Mail from Excel with Outlook (VBA)

 

[CarlStephens]

Thank you. I am still fairly new to coding and I am looking for a code that will have the exact same output as the code below, which is meant for lotus notes mail server, but for Outlook.....do you know where I can find this code? Thank you for your time.

Public Sub Create_and_Display_Notes_Email2()

Dim NUIWorkspace As Object
Dim NUIDocument As Object
Dim ToEmail As String, CCEmail As String, BCCEmail As String, Subject As String, BodyText As String

With ActiveSheet
ToEmail = .Range("C2").Value
CCEmail = .Range("C3").Value
BCCEmail = .Range("C4").Value
Subject = .Range("C5").Value
BodyText = Join(Application.Transpose(.Range("C7", .Cells(.Rows.Count, "C").End(xlUp)).Value), vbCrLf)
End With

Set NUIWorkspace = CreateObject("Notes.NotesUIWorkspace")

'Create an email using the Notes UI

NUIWorkspace.ComposeDocument , , "Memo"

Do
Set NUIDocument = NUIWorkspace.CurrentDocument
DoEvents
Loop While NUIDocument Is Nothing

With NUIDocument
.FieldSetText "EnterSendTo", ToEmail
.FieldSetText "EnterCopyTo", CCEmail
.FieldSetText "EnterBlindCopyTo", BCCEmail
.FieldSetText "Subject", Subject

.GoToField "Body"
.InsertText BodyText
End With

End Sub