"Function Call on left-hand side of assignment must return variant or object"

[nathandavies]

Hi All, I have made a modification to some code, so that if I send an email it asks if i want to save the attachment or not in a different folder but i keep getting an error "Function Call on left-hand side of assignment must return variant or object"

Doe anyone have any ideas how to solve this issue?

      If olItem.Sender Like "Nathan" Then 'INSERT NAME HERE        
        MsgBox("Save Attachments?", vbYesNo, "Save Attachments?") = vbYes
        SaveAttachments olItem, strPath & "\Documents\Documents Sent\"
    Else
        SaveAttachments olItem, strPath & "\Documents\Documents Received\"
    
    'If bExcel = True Then
    'CopyToExcel olItem, strPath
    
       End If
lbl_Exit:
    Exit Sub
End Sub

[Aflatoon]

What are you trying to do with that MsgBox statement? You can't assign a value to it other than by clicking a button on the message box. I guess you meant to use another If...Then block?

[nathandavies]

If "yes" is selected then save then SaveAttachments olItem, strPath & "\Documents\Documents Sent\"
if "no" is selected then end sub.

[SamT]

 If MsgBox("Save Attachments?", vbYesNo, "Save Attachments?") = vbYes Then
    SaveAttach..........
End If

[nathandavies]

Thanks SamT, that has worked now!