Questions on Ron de Bruin's Excel Email Macro
 

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

Questions on Ron de Bruin's Excel Email Macro
 

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

Questions on Ron de Bruin's Excel Email Macro
 

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

Questions on Ron de Bruin's Excel Email Macro
 

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

Questions on Ron de Bruin's Excel Email Macro
 

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