Help sending email but removing signature via VBA

[molonlabe]

I have my primary email and then I can send from another (Alt email), but that alt email is not an account that is added to my outlook, but I can send/receive from it. Hope that makes sense. Since the alt email account is not added, then I can't set it to have a default signature. Therefore I use this code to open a template and change the sending from. Problem is that it still adds the default signature. Before I could alter the registry to stop this, but I can no longer access the registry. I need a way to open the template without adding my default signature. Can anyone help!?

'Opens Email Disclosure TemplateSub OpenEmailTemplate()
Dim oAccount As Outlook.Account




For Each oAccount In Application.Session.Accounts
   ' If oAccount = "testATtest.com" Then
Set temp = Application.CreateItemFromTemplate("file path here")
temp.SentOnBehalfOfName = "sendATtest.com"
temp.Subject = "PERSONAL AND CONFIDENTIAL COMMUNICATION"


temp.Display


'End If
Next
Set temp = Nothing
End Sub

[gmayor]

Your code as posted creates a message for each account? However you could edit the message to remove the signature. In the line
Rng.moveStart 4, -3
change the -3 as required to remove the appropriate number of paragraph from the end of the message.

'Opens Email Disclosure Template
Sub OpenEmailTemplate()
Dim oAccount As Outlook.Account
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object

Dim oTemp As MailItem
    For Each oAccount In Application.Session.Accounts
        ' If oAccount = "testATtest.com" Then
        Set oTemp = Application.CreateItemFromTemplate("file path here")
        With oTemp
            .SentOnBehalfOfName = "sendATtest.com"
            .Subject = "PERSONAL AND CONFIDENTIAL COMMUNICATION"
            Set olInsp = .GetInspector
            Set wdDoc = olInsp.WordEditor
            Set oRng = wdDoc.Range
            oRng.collapse 0
            oRng.moveStart 4, -3
            oRng.Delete
            .Display

        End With
        'Exit For

        'End If
    Next
    Set oTemp = Nothing
    Set oAccount = Nothing
    Set wdDoc = Nothing
    Set oRng = Nothing
End Sub