Requesting return reciept in Outlook 2002 from Excel

B

BruceJ

I need to request Receipts from OUTLOOK but only for emails sent out from
EXCEL via the code below. Can modify the code to request reciept on an send
basis via code?

Thanks
Bruce
--------------


Sub UseDefSig(FileNAME)


Dim ol As Outlook.Application
Dim mi As MailItem
Dim MyHtm As String
Dim AutoSig As String
Dim TheSig As String
Dim strIn As String
Dim FNum As Long
FileNAME = "c:\scripts\" & FileNAME
FNum = FreeFile
Open FileNAME For Input As FNum

Do While Not EOF(FNum)
Line Input #FNum, strIn
TheSig = TheSig & vbCrLf & strIn
Loop
Close FNum

Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)

mi.Display

MyHtm = mi.HTMLBody ' or MyHtm = TheSig
MyHtm = "<font size=""4""><font color=""blue""><b><font face=""Comic Sans
MS"">"
MyHtm = MyHtm & "Hi " & ActiveCell.Offset(0, 1).Value & ","
MyHtm = MyHtm & "</font></b></font>" & TheSig
mi.To = ActiveCell.Offset(0, 4)
mi.HTMLBody = MyHtm
mi.Subject = ActiveCell.Offset(0, 1) & ", " &
ThisWorkbook.Sheets("Scripts").Range("b80").Value


End Sub
 
J

Jake Marx

Hi Bruce,

mi.ReadReceiptRequested = True

That line, executed before sending the email, should add a read receipt
request to the message.

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]
 
B

BruceJ

Does it only effect the NEXT email? I just need to make sure!

Thanks
Bruce

Jake Marx said:
Hi Bruce,

mi.ReadReceiptRequested = True

That line, executed before sending the email, should add a read receipt
request to the message.

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]

I need to request Receipts from OUTLOOK but only for emails sent out
from EXCEL via the code below. Can modify the code to request reciept
on an send basis via code?

Thanks
Bruce
--------------


Sub UseDefSig(FileNAME)


Dim ol As Outlook.Application
Dim mi As MailItem
Dim MyHtm As String
Dim AutoSig As String
Dim TheSig As String
Dim strIn As String
Dim FNum As Long
FileNAME = "c:\scripts\" & FileNAME
FNum = FreeFile
Open FileNAME For Input As FNum

Do While Not EOF(FNum)
Line Input #FNum, strIn
TheSig = TheSig & vbCrLf & strIn
Loop
Close FNum

Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)

mi.Display

MyHtm = mi.HTMLBody ' or MyHtm = TheSig
MyHtm = "<font size=""4""><font color=""blue""><b><font face=""Comic
Sans MS"">"
MyHtm = MyHtm & "Hi " & ActiveCell.Offset(0, 1).Value & ","
MyHtm = MyHtm & "</font></b></font>" & TheSig
mi.To = ActiveCell.Offset(0, 4)
mi.HTMLBody = MyHtm
mi.Subject = ActiveCell.Offset(0, 1) & ", " &
ThisWorkbook.Sheets("Scripts").Range("b80").Value


End Sub
Click to expand...
Click to expand...
 
J

Jake Marx

Yes, you're only modifying the properties of that one MailItem object. But
you should test your code just to make sure. <g>

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]

Does it only effect the NEXT email? I just need to make sure!

Thanks
Bruce

Jake Marx said:
Hi Bruce,

mi.ReadReceiptRequested = True

That line, executed before sending the email, should add a read
receipt request to the message.

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]

I need to request Receipts from OUTLOOK but only for emails sent out
from EXCEL via the code below. Can modify the code to request
reciept on an send basis via code?

Thanks
Bruce
--------------


Sub UseDefSig(FileNAME)


Dim ol As Outlook.Application
Dim mi As MailItem
Dim MyHtm As String
Dim AutoSig As String
Dim TheSig As String
Dim strIn As String
Dim FNum As Long
FileNAME = "c:\scripts\" & FileNAME
FNum = FreeFile
Open FileNAME For Input As FNum

Do While Not EOF(FNum)
Line Input #FNum, strIn
TheSig = TheSig & vbCrLf & strIn
Loop
Close FNum

Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)

mi.Display

MyHtm = mi.HTMLBody ' or MyHtm = TheSig
MyHtm = "<font size=""4""><font color=""blue""><b><font face=""Comic
Sans MS"">"
MyHtm = MyHtm & "Hi " & ActiveCell.Offset(0, 1).Value & ","
MyHtm = MyHtm & "</font></b></font>" & TheSig
mi.To = ActiveCell.Offset(0, 4)
mi.HTMLBody = MyHtm
mi.Subject = ActiveCell.Offset(0, 1) & ", " &
ThisWorkbook.Sheets("Scripts").Range("b80").Value


End Sub
Click to expand...
Click to expand...
Click to expand...
 
B

BruceJ

I added the line, but I am still not getting the "Originator Delivery
Requested" flag, and I am not getting the reciepts. I am manually pressing
the SEND, as sometimes I need to edit the message. Am i doing something
wrong here?
Code is attached as it is currently in the app.

Thanks,
Bruce

Sub UseDefSig(FileNAME)


Dim ol As Outlook.Application
Dim mi As MailItem
Dim MyHtm As String
Dim AutoSig As String
Dim TheSig As String
Dim strIn As String
Dim FNum As Long
FileNAME = "c:\scripts\" & FileNAME
FNum = FreeFile
Open FileNAME For Input As FNum

Do While Not EOF(FNum)
Line Input #FNum, strIn
TheSig = TheSig & vbCrLf & strIn
Loop
Close FNum

Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)

mi.Display

MyHtm = mi.HTMLBody ' or MyHtm = TheSig
MyHtm = "<font size=""4""><font color=""blue""><b><font face=""Comic Sans
MS"">"
MyHtm = MyHtm & "Hi " & ActiveCell.Offset(0, 1).Value & ","
MyHtm = MyHtm & "</font></b></font>" & TheSig
mi.To = ActiveCell.Offset(0, 4)
mi.HTMLBody = MyHtm
mi.ReadReceiptRequested = True
mi.Subject = ActiveCell.Offset(0, 1) & ", " &
ThisWorkbook.Sheets("Scripts").Range("b80").Value


End Sub
Jake Marx said:
Hi Bruce,

mi.ReadReceiptRequested = True

That line, executed before sending the email, should add a read receipt
request to the message.

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]

I need to request Receipts from OUTLOOK but only for emails sent out
from EXCEL via the code below. Can modify the code to request reciept
on an send basis via code?

Thanks
Bruce
--------------


Sub UseDefSig(FileNAME)


Dim ol As Outlook.Application
Dim mi As MailItem
Dim MyHtm As String
Dim AutoSig As String
Dim TheSig As String
Dim strIn As String
Dim FNum As Long
FileNAME = "c:\scripts\" & FileNAME
FNum = FreeFile
Open FileNAME For Input As FNum

Do While Not EOF(FNum)
Line Input #FNum, strIn
TheSig = TheSig & vbCrLf & strIn
Loop
Close FNum

Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)

mi.Display

MyHtm = mi.HTMLBody ' or MyHtm = TheSig
MyHtm = "<font size=""4""><font color=""blue""><b><font face=""Comic
Sans MS"">"
MyHtm = MyHtm & "Hi " & ActiveCell.Offset(0, 1).Value & ","
MyHtm = MyHtm & "</font></b></font>" & TheSig
mi.To = ActiveCell.Offset(0, 4)
mi.HTMLBody = MyHtm
mi.Subject = ActiveCell.Offset(0, 1) & ", " &
ThisWorkbook.Sheets("Scripts").Range("b80").Value


End Sub
Click to expand...
Click to expand...
 
J

Jake Marx

Sorry, Bruce - I thought you were looking for a *read* receipt. If you want
a delivery confirmation, then you can try this:

mi.OriginatorDeliveryReportRequested = True

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]

I added the line, but I am still not getting the "Originator Delivery
Requested" flag, and I am not getting the reciepts. I am manually
pressing the SEND, as sometimes I need to edit the message. Am i
doing something wrong here?
Code is attached as it is currently in the app.

Thanks,
Bruce

Sub UseDefSig(FileNAME)


Dim ol As Outlook.Application
Dim mi As MailItem
Dim MyHtm As String
Dim AutoSig As String
Dim TheSig As String
Dim strIn As String
Dim FNum As Long
FileNAME = "c:\scripts\" & FileNAME
FNum = FreeFile
Open FileNAME For Input As FNum

Do While Not EOF(FNum)
Line Input #FNum, strIn
TheSig = TheSig & vbCrLf & strIn
Loop
Close FNum

Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)

mi.Display

MyHtm = mi.HTMLBody ' or MyHtm = TheSig
MyHtm = "<font size=""4""><font color=""blue""><b><font face=""Comic
Sans MS"">"
MyHtm = MyHtm & "Hi " & ActiveCell.Offset(0, 1).Value & ","
MyHtm = MyHtm & "</font></b></font>" & TheSig
mi.To = ActiveCell.Offset(0, 4)
mi.HTMLBody = MyHtm
mi.ReadReceiptRequested = True
mi.Subject = ActiveCell.Offset(0, 1) & ", " &
ThisWorkbook.Sheets("Scripts").Range("b80").Value


End Sub
Jake Marx said:
Hi Bruce,

mi.ReadReceiptRequested = True

That line, executed before sending the email, should add a read
receipt request to the message.

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]

I need to request Receipts from OUTLOOK but only for emails sent out
from EXCEL via the code below. Can modify the code to request
reciept on an send basis via code?

Thanks
Bruce
--------------


Sub UseDefSig(FileNAME)


Dim ol As Outlook.Application
Dim mi As MailItem
Dim MyHtm As String
Dim AutoSig As String
Dim TheSig As String
Dim strIn As String
Dim FNum As Long
FileNAME = "c:\scripts\" & FileNAME
FNum = FreeFile
Open FileNAME For Input As FNum

Do While Not EOF(FNum)
Line Input #FNum, strIn
TheSig = TheSig & vbCrLf & strIn
Loop
Close FNum

Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)

mi.Display

MyHtm = mi.HTMLBody ' or MyHtm = TheSig
MyHtm = "<font size=""4""><font color=""blue""><b><font face=""Comic
Sans MS"">"
MyHtm = MyHtm & "Hi " & ActiveCell.Offset(0, 1).Value & ","
MyHtm = MyHtm & "</font></b></font>" & TheSig
mi.To = ActiveCell.Offset(0, 4)
mi.HTMLBody = MyHtm
mi.Subject = ActiveCell.Offset(0, 1) & ", " &
ThisWorkbook.Sheets("Scripts").Range("b80").Value


End Sub
Click to expand...
Click to expand...
Click to expand...
 
B

BruceJ

You have NO reason to be sorry! IYou gave me what I asked for! I just did
not know what I wanted!

Thanks!
Bruce

Jake Marx said:
Sorry, Bruce - I thought you were looking for a *read* receipt. If you want
a delivery confirmation, then you can try this:

mi.OriginatorDeliveryReportRequested = True

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]

I added the line, but I am still not getting the "Originator Delivery
Requested" flag, and I am not getting the reciepts. I am manually
pressing the SEND, as sometimes I need to edit the message. Am i
doing something wrong here?
Code is attached as it is currently in the app.

Thanks,
Bruce

Sub UseDefSig(FileNAME)


Dim ol As Outlook.Application
Dim mi As MailItem
Dim MyHtm As String
Dim AutoSig As String
Dim TheSig As String
Dim strIn As String
Dim FNum As Long
FileNAME = "c:\scripts\" & FileNAME
FNum = FreeFile
Open FileNAME For Input As FNum

Do While Not EOF(FNum)
Line Input #FNum, strIn
TheSig = TheSig & vbCrLf & strIn
Loop
Close FNum

Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)

mi.Display

MyHtm = mi.HTMLBody ' or MyHtm = TheSig
MyHtm = "<font size=""4""><font color=""blue""><b><font face=""Comic
Sans MS"">"
MyHtm = MyHtm & "Hi " & ActiveCell.Offset(0, 1).Value & ","
MyHtm = MyHtm & "</font></b></font>" & TheSig
mi.To = ActiveCell.Offset(0, 4)
mi.HTMLBody = MyHtm
mi.ReadReceiptRequested = True
mi.Subject = ActiveCell.Offset(0, 1) & ", " &
ThisWorkbook.Sheets("Scripts").Range("b80").Value


End Sub
Jake Marx said:
Hi Bruce,

mi.ReadReceiptRequested = True

That line, executed before sending the email, should add a read
receipt request to the message.

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]


BruceJ wrote:
I need to request Receipts from OUTLOOK but only for emails sent out
from EXCEL via the code below. Can modify the code to request
reciept on an send basis via code?

Thanks
Bruce
--------------


Sub UseDefSig(FileNAME)


Dim ol As Outlook.Application
Dim mi As MailItem
Dim MyHtm As String
Dim AutoSig As String
Dim TheSig As String
Dim strIn As String
Dim FNum As Long
FileNAME = "c:\scripts\" & FileNAME
FNum = FreeFile
Open FileNAME For Input As FNum

Do While Not EOF(FNum)
Line Input #FNum, strIn
TheSig = TheSig & vbCrLf & strIn
Loop
Close FNum

Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)

mi.Display

MyHtm = mi.HTMLBody ' or MyHtm = TheSig
MyHtm = "<font size=""4""><font color=""blue""><b><font face=""Comic
Sans MS"">"
MyHtm = MyHtm & "Hi " & ActiveCell.Offset(0, 1).Value & ","
MyHtm = MyHtm & "</font></b></font>" & TheSig
mi.To = ActiveCell.Offset(0, 4)
mi.HTMLBody = MyHtm
mi.Subject = ActiveCell.Offset(0, 1) & ", " &
ThisWorkbook.Sheets("Scripts").Range("b80").Value


End Sub
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Creating a mailing application, need some help and suggestions please.... 1
Modifying Ron De Bruin's "Create summary sheet from different workbooks" 7
Copy item from Outlook to folder via Excel 12
Excel VBA coding - Outlook and Shut down issue 6
Problem with .send from microsoft example for vba send mail from excel code 3
Excel VBA toggle Outlook '03 Word email editor on/off 6
Send mail from excel - Copy/paste unformatted values and error mes 6
Excel publish html to outlook error 0

Top