CarlStephens
Board Regular
- Joined
- Sep 25, 2020
- Messages
- 128
- Office Version
- 2016
- Platform
- Windows
I have the below code which creates an email in Lotus Notes......and I would like the code to go to the email once it is created, what is the code that I would need to add? Thank you for your support as always, much love.
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
.GoToField "Body"
End With
End Sub
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
.GoToField "Body"
End With
End Sub