Hi All, I have a macro with all the validations complete, but want to insert a signature that is located on my local computer.
What are lines that need to be added to create the signature object and to insert it?
Thanks!
What are lines that need to be added to create the signature object and to insert it?
Thanks!
Code:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim recips As Outlook.Recipients
Dim recip As Outlook.Recipient
Dim pa As Outlook.PropertyAccessor
Dim prompt As String
Dim strMsg As String
Dim sigSting As String
sigString = "C:\Users\AppData\Roaming\Microsoft\Signatures\Internal.htm"
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
Set recips = Item.Recipients
For Each recip In recips
Set pa = recip.PropertyAccessor
If InStr(LCase(pa.GetProperty(PR_SMTP_ADDRESS)), "@domain.com") = 0 Then
' Insert here
End If
Next
End Sub