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" wrote in message
...
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]


BruceJ wrote:
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" wrote in message
...
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