Email from Excel Function

[Crazyhorse]

Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.Display
.Body = eBody
.To = eTo
.CC = ecc
.Attachments.Add eAttach, olByValue, 1
.Subject = eSubject

.Send
End With


How do I add my signature?

Thanks

 

[Ron de Bruin]

Hi Crazyhorse

See
http://www.rondebruin.nl/mail/folder3/signature.htm

 

[Barb Reinhardt]

http://www.rondebruin.nl/mail/folder3/signature.htm

 

[Crazyhorse]

I figured it out.

SigString = "C:\Documents and Settings\" & Environ("username") & _
"\Application Data\Microsoft\Signatures\Sig.txt"

If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If


Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail
'.Display
.To = eTo
.CC = ecc
.Subject = eSubject
.Body = vbNewLine & vbNewLine & eBody & vbNewLine &
Signature
.Attachments.Add eAttach, olByValue, 1
.Send
End With
Set oOMail = Nothing



Function GetBoiler(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function