Link to home
Start Free TrialLog in
Avatar of cmed
cmed

asked on

Use the default signature from outlook

Does anyone know how to add the signature from outlook to this code?  I have a default signature that I use for outlook.  In addition, my recipients for this code is a group contact, so I want to make sure that the code that I have is not a problem.  

Imports Excel = Microsoft.Office.Interop.Excel
Imports Olook = Microsoft.Office.Interop.Outlook

Public Class Form1
    Dim xlApp As New Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet As Excel.Worksheet
    Dim xlRange As Excel.Range
    
    Private Sub btnSendEmail_Click(sender As Object, e As EventArgs) Handles btnSendBeginningEmail.Click
        Dim Outlook As New Microsoft.Office.Interop.Outlook.Application
        Dim MailItem As Microsoft.Office.Interop.Outlook.MailItem
        Dim signature As String
        MailItem = Outlook.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
        signature = MailItem.Body
        With MailItem
            .Body = signature
            .Subject = "Beginning ISIR Downloads"
            .Recipients.Add("ISIR Downloads")
            .Display() 'opens the email for checking prior to sending or use .Send()
        End With
    End Sub
End Class

Open in new window

ASKER CERTIFIED SOLUTION
Avatar of Scott McDaniel (EE MVE )
Scott McDaniel (EE MVE )
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of cmed
cmed

ASKER

This helps thanks.