Need Help with this Code; E-Mail

  • Thread starter Thread starter Dave Elliott
  • Start date Start date
D

Dave Elliott

How can i make this prompt me for a To (Send To ) Customer?

On Error GoTo Error_Handler



Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

With objEmail
.To = "(e-mail address removed)"
.Subject = "Invoice from Gulf Coast Electric"
.body = "Thanks for your Business"
.Attachments.Add "C:\PDFReports\Test.pdf"
'.attachments.Add "c:\Path\to\the\next\file.txt"
.Send
'.ReadReceiptRequested
End With

Exit_Here:
Set objOutlook = Nothing
Exit Sub

Error_Handler:
MsgBox err & ": " & err.Description
Resume Exit_Here
 
How can i make this prompt me for a To (Send To ) Customer?

On Error GoTo Error_Handler

Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

With objEmail
.To = "(e-mail address removed)"
.Subject = "Invoice from Gulf Coast Electric"
.body = "Thanks for your Business"
.Attachments.Add "C:\PDFReports\Test.pdf"
'.attachments.Add "c:\Path\to\the\next\file.txt"
.Send
'.ReadReceiptRequested
End With

Exit_Here:
Set objOutlook = Nothing
Exit Sub

Error_Handler:
MsgBox err & ": " & err.Description
Resume Exit_Here
Click to expand...

..To = InputBox("To whom?")
 
Back
Top