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

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

Hi Arisrune


1:

See
http://www.rondebruin.nl/mail/tips2.htm

' 0 = Low, 2 = High, 1 = Normal
..Importance = 2

..ReadReceiptRequested = True




2:

Not possible as far as I know


3:

strbody = "<H3<BDear Customer</B</H3" & _
"Please visit this website to download the new version.<br" & _
"I have " & Worksheets("Sheet1").Range("A3").Value & " apples.<br" & _
"<A HREF=""http://www.rondebruin.nl/""Ron's Excel Page</A" & _
"<br<br<BThank you</B"






--

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

Hi Ron,

Excellent examples.

For the deferred date example, in what format must the date be typed in?
Can we provide date in dd/mm/yy (or dd/mm/yyyy) format?

Many thanks.



"Ron de Bruin" wrote:

Hi Arisrune


1:

See
http://www.rondebruin.nl/mail/tips2.htm

' 0 = Low, 2 = High, 1 = Normal
..Importance = 2

..ReadReceiptRequested = True




2:

Not possible as far as I know


3:

strbody = "<H3<BDear Customer</B</H3" & _
"Please visit this website to download the new version.<br" & _
"I have " & Worksheets("Sheet1").Range("A3").Value & " apples.<br" & _
"<A HREF=""http://www.rondebruin.nl/""Ron's Excel Page</A" & _
"<br<br<BThank you</B"






--

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

Can we provide date in dd/mm/yy (or dd/mm/yyyy) format?
I not use it myself in my daily job..
The only way is to test it <g

--

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


"DKS" wrote in message ...
Hi Ron,

Excellent examples.

For the deferred date example, in what format must the date be typed in?
Can we provide date in dd/mm/yy (or dd/mm/yyyy) format?

Many thanks.



"Ron de Bruin" wrote:

Hi Arisrune


1:

See
http://www.rondebruin.nl/mail/tips2.htm

' 0 = Low, 2 = High, 1 = Normal
..Importance = 2

..ReadReceiptRequested = True




2:

Not possible as far as I know


3:

strbody = "<H3<BDear Customer</B</H3" & _
"Please visit this website to download the new version.<br" & _
"I have " & Worksheets("Sheet1").Range("A3").Value & " apples.<br" & _
"<A HREF=""http://www.rondebruin.nl/""Ron's Excel Page</A" & _
"<br<br<BThank you</B"






--

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