outlook vba

[zulfahmi]

I have outlook 2010,and I have signature assigned to rediffmail and gmail account.
But when I create message using vba plaintext signature does not generate in message unless I keep open outlook before I run that code.
And another thing is that if I choose richtext format for composing message in outlook options it works fine for plaintext and html and rich text.
Is there any solution without keeping open outlook before running code.
Pleaseeeee.... Help

[gmayor]

If you are using Outlook functionality then Outlook needs to be open while it is in use. The following will open outlook and create the message, retaining the signature.
Note the comment at the top of the macro re required code

Sub Send_As_Plain_EMail()'Graham Mayor - http://www.gmayor.com - Last updated - 14 Jul 2017
'Requires the code from http://www.rondebruin.nl/win/s1/outlook/openclose.htm
'to either retrieve an open instance of Outlook or open Outlook if it is closed.
Dim bStarted As Boolean
Dim olApp As Object
Dim oItem As Object
Dim objDoc As Object
Dim strRecipient As String
Dim strSubject As String
Dim oRng As Object


    strRecipient = "someone@somewhere.com"
    strSubject = "This is the message subject"
    ActiveDocument.Range.Copy
    Set olApp = OutlookApp()
            Set oItem = olApp.CreateItem(0)
            With oItem
                .BodyFormat = 1 'Plain text (2 for html)
                .Display 'This line is required
                Set objDoc = .GetInspector.WordEditor
                Set oRng = objDoc.Range
                oRng.Collapse 1
                oRng.Text = "This is the message"
                .To = strRecipient
                .Subject = strSubject
                '.Send 'Restore after testing
            End With
lbl_Exit:
    Set oItem = Nothing
    Set olApp = Nothing
    Set objDoc = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub