Question about Microsoft Outlook 9.0 Object Library
I have a question about the Microsoft Outlook 9.0 Object Library. My boss just came up to me and asked me to change my code. Here is my code :
VB Code:
'**************** Sets up and Sends Email to AOPS ******************
'This will send an email to everyone in the department with the
'appropriate information.
'Create Outlook object variable
Dim objOutlook As Object
'Assign Outlook.Application to object variable
Set objOutlook = CreateObject("Outlook.Application")
'Set objOutlook = GetObject(, "Outlook.Application")
With objOutlook.CreateItem(olMailItem)
'To: Field of the Email
'Subject: Field of the Email
.Subject = strIssue & ", " & strAlert & ", " & strServer
'Body of the Email
.Body = strDateTimeStamp & ", " & "Response number: " & strResponse _
& Chr$(13) & Chr$(13) & "Comments: " & strComments
'Copy message to Outlook Outbox with Send
.Send
End With
'Quits Outlook
'objOutlook.Quit
'Release object variable
Set objOutlook = Nothing
'********************************************************************
My question is, is there a way for me to change this so that instead of it automatically sending the email, it brings up the email in outlook, so that the person can make changes to it before it's sent? The only thing that really needs to be changed is in case they need to add another email address. But how can i do this? Thanks.
Eric Garrison
Automated Operations
Union Planters Bank
