A
Arisrune
Hello,
I’ve 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
I’ve 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