Place Cursor in multiline HTML Body

PrincessApril · #1 03-05-2020, 02:46 PM

Hi all. I am using the below code to generate an html email with the default signature in outlook. The output is great; however, the cursor does not appear until I tab or click in a field other than the body and then tab/click back into the body. I would like the cursor to appear two lines below the salutation. Any ideas on how to place the cursor, preferably without using sendkeys?

Code:

Private Sub EmailBtnUnits2020_Click()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim StrBody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    StrBody = "<html><body><font size=""3"" face=""Calibri"" color=""black""><p>Hi " & ActiveSheet.Range("W4").Text & ",</p>" _
    & "</font></body></html>"

    On Error Resume Next

    With OutMail
        .Display
        .To = ActiveSheet.Range("AC4").Text
        .CC = ""
        .BCC = ""
        .Subject = "Question"
        .HTMLbody = StrBody & "<br>" & .HTMLbody
        .Display
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Pasted pictures go all over the place, not at the cursor	WaltR	Word	9	09-20-2013 05:58 PM
Can't Place Cursor to Insert Subdocument	ForWork	Word	4	03-08-2013 03:10 AM
Place cursor below msg body in reply	charles.h	Outlook	0	10-03-2009 03:05 AM
Replying to a message and having the cursor go into the body	join_the_band	Outlook	1	12-02-2005 06:21 AM
HTML Format Body - Scripts?	jeffcravener	Outlook	0	11-14-2005 10:58 AM