The code in red will pull the signature from Outlook.
It will then ensure the signature is used on email sent from Access forms.
Code:
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
Enjoy
Joe (floyd)