|
Requesting return reciept in Outlook 2002 from Excel
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 |
Requesting return reciept in Outlook 2002 from Excel
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 |
Requesting return reciept in Outlook 2002 from Excel
Does it only effect the NEXT email? I just need to make sure!
Thanks Bruce "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 |
Requesting return reciept in Outlook 2002 from Excel
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] BruceJ wrote: Does it only effect the NEXT email? I just need to make sure! Thanks Bruce "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 |
Requesting return reciept in Outlook 2002 from Excel
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 |
Requesting return reciept in Outlook 2002 from Excel
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 |
Requesting return reciept in Outlook 2002 from Excel
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 |
| All times are GMT +1. The time now is 12:13 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com