Hello,
I keep receiving a Sub or Function not defined error message on the below VBA:
Public Function HighEmail()
On Error GoTo HighEmail_Err
Dim fso, fs As Scripting.FileSystemObject
Set fso = New FileSystemObject
Set fs = New FileSystemObject
Dim appOutLook As Object
Dim MailOutLook As Object
Dim SigString As String
Dim Signature As String
Set appOutLook = New Outlook.Application
Set MailOutLook = appOutLook.CreateItem(olMailItem)
'Get Outlook Signature
SigString = Environ("appdata") & _
"\Microsoft\Signatures\myname.htm"
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
I've gone over and over it and can not find the issue...any help is greatly appreciated.
I keep receiving a Sub or Function not defined error message on the below VBA:
Public Function HighEmail()
On Error GoTo HighEmail_Err
Dim fso, fs As Scripting.FileSystemObject
Set fso = New FileSystemObject
Set fs = New FileSystemObject
Dim appOutLook As Object
Dim MailOutLook As Object
Dim SigString As String
Dim Signature As String
Set appOutLook = New Outlook.Application
Set MailOutLook = appOutLook.CreateItem(olMailItem)
'Get Outlook Signature
SigString = Environ("appdata") & _
"\Microsoft\Signatures\myname.htm"
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
I've gone over and over it and can not find the issue...any help is greatly appreciated.