Outlook Resolveall

[Jewtus]

I'm trying to create a simple outlook function that validates the email addresses before sending. I'm trying adapt this script:

https://msdn.microsoft.com/EN-US/library/office/ff867165.aspx

 

Func SendEmails()
    $olApp = ObjCreate("Outlook.Application")
    $olMailItem = 0
    $objMail = $olApp.CreateItem($olMailItem)
    With $objMail
        .Save
        .Subject = ("TEST")
        .Display
        $oRecipients=.Recipients
    EndWith
    With $oRecipients
        .Add("User1")
        .Add("User2")
        If not .ResolveAll Then
            For $z In $oRecipients
                If not .Resolved then MsgBox(0,"",.Name)
            Next
        EndIf
    EndWith
EndFunc

I'm only trying to capture the message box because the resolveall function doesn't seem to be doing anything. I tried using the above script and it works up to the resolveall statement but it doesn't seem to do anything. I was hoping putting the message box in would help me figure out what is going on, but I'm getting errors on .Resolved.

 

Anyone used the Resolveall function before?

[water]

Why don't you have a look at my OutlookEX UDF? Function _OL_ItemRecipientAdd or _OL_ItemRecipientCheck?

[Jewtus]

Can you link your DL? I looked at the links in your sig, but I cannot find the DL path.

[water]

The link in my signature correctly transfers me to the OutlookEx thread. When scrolling down a bit you will find the ZIP file.
Here is the direct download link:  https://www.autoitscript.com/forum/applications/core/interface/file/attachment.php?id=44687

[Jewtus]

Excellent! I don't see the zip file in the thread... I've been having issues on the boards with content not showing up (as you might have noticed with the last few posts).

 

Thanks!