Add Outlook Signature to Email - CODE

[floyd]

Enclosed is the code which will input the Outlook Signature line in your outgoing email.



ENJOY!

Private Sub SecondEmail_Click()

'open Outlook, attach zip folder or file, send e-mail
Dim appOutLook As OutLook.Application
Dim MailOutLook As OutLook.MailItem, SaveSig As String
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
MailOutLook.Display
SaveSig = MailOutLook.HTMLBody
With MailOutLook
    .BodyFormat = olFormatRichText
    .To = ""
    ''.cc = ""
    ''.bcc = ""
    .Subject = Me.EmailSubjectField
    .HTMLBody = Me.EmailMessageField & SaveSig
    '.Attachments.Add ("path\filename")
    ''.DeleteAfterSubmit = True 'This would let Outlook send the note without storing it in your sent bin
    .Display
    '.Send
End With
End Sub

[drunkenneo]

Thats nice...