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

CarlStephens

Board Regular
Joined
Sep 25, 2020
Messages
51
Office Version
  1. 2016
Platform
  1. Windows
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.

1601391037188.png
 

Attachments

  • 1601390134430.png
    1601390134430.png
    16.2 KB · Views: 2

Some videos you may like

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.

CarlStephens

Board Regular
Joined
Sep 25, 2020
Messages
51
Office Version
  1. 2016
Platform
  1. Windows
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
 

Watch MrExcel Video

Forum statistics

Threads
1,122,832
Messages
5,598,363
Members
414,233
Latest member
WolverineNurse

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top