Working with current open email

by

I don’t know exactly what’s wrong with your code. For one thing, though, you are not validating that a new, editable email is even open. The following proof-of-concept does exactly what I think you’re looking to do: insert some text into the active email being composed. If this is not possible it displays a message box explaining why.

The portion that inserts text will only work if Word is being used as the email editor (which will ALWAYS be the case in Outlook 2010+). If it is not you will have to parse and update the Body or HTMLBody text directly.

Sub InsertText()
    Dim myText As String
    myText = "Hello world"

    Dim NewMail As MailItem, oInspector As Inspector
    Set oInspector = Application.ActiveInspector
    If oInspector Is Nothing Then
        MsgBox "No active inspector"
    Else
        Set NewMail = oInspector.CurrentItem
        If NewMail.Sent Then
            MsgBox "This is not an editable email"
        Else
            If oInspector.IsWordMail Then
                ' Hurray. We can use the rich Word object model, with access
                ' the caret and everything.
                Dim oDoc As Object, oWrdApp As Object, oSelection As Object
                Set oDoc = oInspector.WordEditor
                Set oWrdApp = oDoc.Application
                Set oSelection = oWrdApp.Selection
                oSelection.InsertAfter myText
                oSelection.Collapse 0
                Set oSelection = Nothing
                Set oWrdApp = Nothing
                Set oDoc = Nothing
            Else
                ' No object model to work with. Must manipulate raw text.
                Select Case NewMail.BodyFormat
                    Case olFormatPlain, olFormatRichText, olFormatUnspecified
                        NewMail.Body = NewMail.Body & myText
                    Case olFormatHTML
                        NewMail.HTMLBody = NewMail.HTMLBody & "<p>" & myText & "</p>"
                End Select
            End If
        End If
    End If
End Sub

More Related Contents:

  1. Get reference to additional Inbox
  2. How to add default signature in Outlook
  3. How do I trigger a macro to run after a new mail is received in Outlook?
  4. Outlook VBA – Run a code every half an hour
  5. For Each loop: Some items get skipped when looping through Outlook mailbox to delete items
  6. Can I iterate through all Outlook emails in a folder including sub-folders?
  7. Download attachment from Outlook and Open in Excel
  8. Embed picture in outlook mail body excel vba
  9. How to move each emails from inbox to a sub-folder [duplicate]
  10. Save attachments to a folder and rename them
  11. Outlook Reply or ReplyAll to an Email
  12. How to do late binding in VBA?
  13. Distinguish visible and invisible attachments with Outlook VBA
  14. Check for the senderEmailAddress
  15. Removing a string that includes CRLF characters from body of e-mail
  16. How to insert text into Outlook email editor using VBA
  17. How do you extract email addresses from the ‘To’ field in outlook?
  18. Add a “CC recipient” to Outlook 2010 VBA
  19. Using visual basic to access subfolder in Inbox?
  20. When is a MailItem not a MailItem? [closed]
  21. Search structured text in Outlook body
  22. Switching the FROM Inbox
  23. How to add an embedded image to an HTML message in Outlook 2010
  24. Iterate all email items in a specific Outlook folder
  25. Restrict Outlook Items by Date
  26. VBA Outlook Mail .display, recording when/if sent manually
  27. MS Access VBA: Sending an email through Outlook [closed]
  28. Where does Outlook store the VBA code files?
  29. Debugging an Outlook 2007 script fired by a rule
  30. Runtime error 287. Sending Emails through Outlook using VBA in Access

Leave a Comment