Email from Excel Function
 

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

Email from Excel Function
 

Hi Crazyhorse

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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Crazyhorse" wrote in message ...
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

Email from Excel Function
 

http://www.rondebruin.nl/mail/folder3/signature.htm
--
HTH,

Barb Reinhardt



"Crazyhorse" wrote:

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

Email from Excel Function
 

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