OutlookEX _OL_ItemRecipientAdd --- Recipient Showing Blank in Variables

[SkysLastChance]

I am working on a script that looks for a email with specific word in the title. Then it replies back to the email.

This is working as excpected. However, I dont understand why my variable ($vSenderAdd) is coming back empty when I put it into a message box. 

I tried putting it in a array to and still nothing.

I am stuggling to understand why my variable ($vSenderAdd) is working in the _OL_ItemRecipientAdd but not showing when I put it into a variable for a msg box.

expandcollapse popup

Func oOApp_NewMailEx($sOL_EntryId)

    _WinAPI_DeleteObject($hHBmp_BG)
    _GDIPlus_Shutdown()
    GUIDelete()

    Local $oOL_Item = $oOApp.Session.GetItemFromID($sOL_EntryId, Default)
    Local $vSubject = $oOL_Item.Subject
    Local $vSenderName = $oOL_Item.SenderName



    If StringLeft($vSubject, 5) = 'Hello' Then



        Local $oOL_Sender = $oOL_Item.Sender
        MsgBox(0,"",$oOL_Sender.AddressEntryUserType)
        If $oOL_Sender.AddressEntryUserType = $olExchangeUserAddressEntry Or $oOL_Sender.AddressEntryUserType = $olExchangeRemoteUserAddressEntry Then
            Local $vSenderAdd = $oOL_Sender.GetExchangeUser
        Else
            Local $vSenderAdd = $oOL_Item.SenderEmailAddress
        EndIf

        Local $vTextFile = FileOpen(@DesktopDir & "\TempText.txt", 2)

        FileWriteLine($vTextFile, $vSenderAdd)
        FileWriteLine($vTextFile, $vSenderName)
        FileClose($vTextFile)

        MsgBox(0,"Outlook","Recieved E-Mail from " & $vSenderName & @CRLF & $vSenderAdd)
        MsgBox(0,"Exchange",$oOL_Sender.GetExchangeUser)
        Msgbox(0,"Other",$oOL_Item.SenderEmailAddress)
        Msgbox(0,"Variable",$vSenderAdd)
        _ArrayDisplay($vSenderAdd)





        Local $oOutlook = _OL_Open()
        Local $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=I have recived the email")
        $oItem = _OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $vSenderAdd)
        $oItem.BodyFormat = $olFormatPlain
        $oItem.GetInspector
        Local $sBody = $oItem.Body
        $oItem.Body = "Thank you! " & StringUpper($vSenderName) & " for your E-mail!" & $sBody
        $oItem.Display


        ;_OL_ItemSend($oOutlook, $oItem)
        ;_OL_Close($oOutlook)

        Exit

    EndIf

EndFunc

So what I can't figure out. Why the email pulls in for this line. ($vSenderAdd)

$oItem = _OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $vSenderAdd)

But comes in as blank for all these. ($vSenderAdd)

MsgBox(0,"Outlook","Recieved E-Mail from " & $vSenderName & @CRLF & $vSenderAdd)
        MsgBox(0,"Exchange",$oOL_Sender.GetExchangeUser)
        Msgbox(0,"Other",$oOL_Item.SenderEmailAddress)
        Msgbox(0,"Variable",$vSenderAdd)
        _ArrayDisplay($vSenderAdd)

I know it has something to do with @waters function. I just can't figure it out.

That part that drives me even more crazy is that it was working before. Not sure what I changed exactly. 

Edited September 2, 2022 by SkysLastChance

[Danp2]

Have you tried this?

Msgbox(0,"Variable",IsObj($vSenderAdd))

 

[water]

MsgBox(0,"Exchange",$oOL_Sender.GetExchangeUser)

tries to display an addressentry object.
For all Exchange sender addresses $vSenderAdd is set to this addressentry and hence does not get displayed.

[SkysLastChance]

Msgbox(0,"Variable",$vSenderAdd.PrimarySmtpAddress)

Thank you both. I just needed that little nudge.

Edited September 2, 2022 by SkysLastChance