Getting open Outlook 2016 Application OLE Object in Win 10

[notds]

Previous examples stopped working. I can close outlook and create object. But I also can't seem to close the mail object and send a second email after I've sent one already.

This used to work famously. Drat. Can anyone provide up to date working code examples?

[notds]

Here's the code I'm trying to get to work with Windows 10 and Outlook 2016

Code (winbatch) Select Expand


recip="me@someplace.org"
AttachmentPath=""
objOutlook = ObjectCreate("Outlook.Application")


#DefineSubroutine MyDialogCallbackProc(MyDialog_Handle,MyDialog_Event,MyDialog_Name,MyDialog_EventInfo,MyDialog_ChangeInfo)
switch MyDialog_Event                                    ; Switch based on Dialog Message type
case @deInit                                          ; Standard Initialization message
; DialogProcOptions(MyDialog_Handle,@deTimer,1000)
DialogProcOptions(MyDialog_Handle,@dePbPush,@TRUE)
DialogProcOptions(MyDialog_Handle,@deCbCheck,@TRUE)
DialogProcOptions(MyDialog_Handle,@deEdText,@TRUE)
DialogProcOptions(MyDialog_Handle,@deSpChange,@TRUE)
return(@retDefault)

case @dePbPush
if MyDialog_Name == "PushButton_OK"                ; Create Tickets

startnum = DialogControlGet( MyDialog_Handle, "Spinner_1", 8 )
endnum = DialogControlGet( MyDialog_Handle, "Spinner_2", 8 )
inserttotitle = DialogControlGet( MyDialog_Handle, "CheckBox_1", 1 )
inserttomsg = DialogControlGet( MyDialog_Handle, "CheckBox_2", 1 )
title_A = DialogControlGet( MyDialog_Handle, "EditBox_titlepa", 3 )
title_B = DialogControlGet( MyDialog_Handle, "EditBox_titlepb", 3 )
msg_A = DialogControlGet( MyDialog_Handle, "MultiLineBox_mbpa", 3 )
msg_B = DialogControlGet( MyDialog_Handle, "MultiLineBox_mbpb", 3 )



For x = startnum to endnum




If inserttotitle && inserttomsg
Display( 1, title_A:x:title_B, msg_A:x:msg_B )



objOutlookMsg = objOutlook.CreateItem(0)
objOutlookRecip=objOutlookMsg.Recipients
objOutlookRecip.Add(Recip)
objOutlookMsg.Subject = title_A:x:title_B
objOutlookMsg.Body = msg_A:x:msg_B:@CRLF
objOutlookMsg.Display
objOutlookMsg.Save
objOutlookMsg.Send

; Message("debug","Sent?")


; Add attachments to the message.
;objOutlookAttach = objOutlookMsg.Attachments
;objOutlookAttach.Add(AttachmentPath)




ElseIf inserttotitle && !inserttomsg

Display( 1, title_A:x:title_B, msg_A )


objOutlookMsg = objOutlook.CreateItem(0)
objOutlookMsg.Display
objOutlookRecip=objOutlookMsg.Recipients
objOutlookRecip.Add(Recip)
objOutlookMsg.Subject = title_A:x:title_B
objOutlookMsg.Body = msg_A:@CRLF
objOutlookMsg.Send

ElseIf !inserttotitle && inserttomsg

Display( 1, title_A, msg_A:x:msg_B )


objOutlookMsg = objOutlook.CreateItem(0)
objOutlookMsg.Display
objOutlookRecip=objOutlookMsg.Recipients
objOutlookRecip.Add(Recip)
objOutlookMsg.Subject = title_A
objOutlookMsg.Body = msg_A:x:msg_B:@CRLF
objOutlookMsg.Send

ElseIf !inserttotitle && !inserttomsg

Message("Error","If we aren't incrementing, then why are we using this tool?")
Exit

EndIf






Next


objOutlookRecip = 0
objOutlookMsg = 0
objOutlook.Quit();
objOutlook = 0

ObjectClose( objOutlookRecip )
ObjectClose( objOutlookMsg )
ObjectClose( objOutlook )




return(@retDefault)

elseif MyDialog_Name == "PushButton_Cancel"        ; Quit
return(@retDefault)

endif                                              ; MyDialog_Name
return(@retDefault)

case @deCbCheck
if MyDialog_Name == "CheckBox_1"                   ; cbVariable1 Insert Increment Into Title
return(@retDefault)

elseif MyDialog_Name == "CheckBox_2"               ; cbVariable2 Insert Increment Into Message Body
return(@retDefault)

endif                                              ; MyDialog_Name
return(@retDefault)

case @deEdText
if MyDialog_Name == "EditBox_titlepa"              ; ebtitlea
return(@retDefault)

elseif MyDialog_Name == "EditBox_titlepb"          ; ebtitleb
return(@retDefault)

elseif MyDialog_Name == "MultiLineBox_mbpa"        ; mlVariable1
return(@retDefault)

elseif MyDialog_Name == "MultiLineBox_mbpb"        ; mlVariable2
return(@retDefault)

endif                                              ; MyDialog_Name
return(@retDefault)

case @deSpChange
if MyDialog_Name == "Spinner_1"                    ; spVariable1start 1
return(@retDefault)

elseif MyDialog_Name == "Spinner_2"                ; spVariable2stop 2
return(@retDefault)

endif                                              ; MyDialog_Name
return(@retDefault)

case @deClose                                         ; System menu close event
return(@retDefault)

endswitch                                                ; MyDialog_Event
return(@retDefault)
#EndSubroutine                                              ; End of Dialog Callback MyDialogCallbackProc

;============================================================
;============================================================
;============================================================


MyDialogFormat=`WWWDLGED,6.2`

MyDialogCaption=`ITCT - Incremental Ticket Creation Tool`
MyDialogX=250
MyDialogY=098
MyDialogWidth=318
MyDialogHeight=236
MyDialogNumControls=015
MyDialogProcedure=`MyDialogCallbackProc`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0

MyDialog001=`009,213,078,012,PUSHBUTTON,"PushButton_OK",DEFAULT,"Create Tickets",1,10,@csDefButton,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`269,213,036,012,PUSHBUTTON,"PushButton_Cancel",DEFAULT,"Quit",0,20,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`009,057,296,012,EDITBOX,"EditBox_titlepa",ebtitlea,DEFAULT,DEFAULT,30,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog004=`009,025,046,012,SPINNER,"Spinner_1",spVariable1start,"1",DEFAULT,40,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog005=`075,025,044,012,SPINNER,"Spinner_2",spVariable2stop,"2",DEFAULT,50,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog006=`009,011,044,012,STATICTEXT,"StaticText_1",DEFAULT,"Increment Start",DEFAULT,60,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog007=`075,011,044,012,STATICTEXT,"StaticText_2",DEFAULT,"Increment Stop",DEFAULT,70,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog008=`009,043,044,012,STATICTEXT,"StaticText_3",DEFAULT,"Title Part A",DEFAULT,80,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog009=`009,075,072,012,CHECKBOX,"CheckBox_1",cbVariable1,"Insert Increment Into Title",1,90,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog010=`041,091,264,012,EDITBOX,"EditBox_titlepb",ebtitleb,DEFAULT,DEFAULT,100,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog011=`009,091,030,012,STATICTEXT,"StaticText_4",DEFAULT,"Title Part B",DEFAULT,110,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog012=`009,117,296,030,MULTILINEBOX,"MultiLineBox_mbpa",mlVariable1,DEFAULT,DEFAULT,120,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog013=`009,151,098,012,CHECKBOX,"CheckBox_2",cbVariable2,"Insert Increment Into Message Body",1,130,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog014=`009,107,080,012,STATICTEXT,"StaticText_5",DEFAULT,"Message Body Part A",DEFAULT,140,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog015=`009,169,296,038,MULTILINEBOX,"MultiLineBox_mbpb",mlVariable2,DEFAULT,DEFAULT,150,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("MyDialog")



[td]

Not sure what is causing your problem but since you mentioned Windows 10, I assume the problem started when you migrated to Windows 10 from some other version of Windows.  You might want to consider perusing the latest Outlook VBA documentation to determine if you are using the object model as dictated by MSFT.  The object model can be found here:

https://docs.microsoft.com/en-us/office/vba/api/overview/outlook

[td]

FWIW, I was able to get rid of the error when sending consecutive email messages by commenting out the display line

Code (winbatch) Select Expand

;objOutlookMsg.Display

[notds]

Clean install of win 10.

Thanks for the input I'll give it a shot :)

[EricLee]

Outlook 2016 was requiring a secret phrase at whatever point I rebooted, and I found that the Generic Credential being made in Credential Manager had a Persistence setting of "Session" which means it just endured as long as I was signed on.