Bedtime here

I will reply tomorrow after work

--

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


"Arisrune" wrote in message ...
Hello,

Ive been reading through the posts and have questions on Ron de Bruin's
Formulas.

1. Can the macro set a default read-receipt, delivery-receipt, high
priority, & create sent copies in outlook?
- I like to keep records of all sent email and the formula as-is is useless
for tracking purposes.

2. How do you implement GetBoiler in the formula to add background &
signature image in the email?

3. How do you incorporate a cell value in the middle of normal text for the
signature & body of an email.
Example: I have [A3] apples.

Below is the Macro that works on a basic attachment level without signature,
background, special email settings.

----------------------------------------------------------------------
Sub P2_Email()
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2007
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

strbody = "Hello NAME," & vbNewLine & vbNewLine & _
("A1") & vbNewLine & "is a P-2 Ticket"
Signature = "C:\Documents and Settings\" & Environ("rmm") & _
"\Application Data\Microsoft\Signatures\rm.htm"
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = Sheets("Template").Range("AO13")
.HTMLBody = strbody & "<br<br" & Signature
.Attachments.Add ActiveWorkbook.FullName
.Display
End With

On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub