Ok so now the issue is after I send the email if I try to run the SaveAs method it'll throw an error. "The object has been moved or deleted."
Am I going to have to loop through my sent mail folder to find the email I just send then save it?
[EDIT]
Ok so I've come up with a way to loop through the sent items mailbox to find my email and then save it. If anyone has a more efficient method I would love to hear it.
Code:
For Each outlookMailItem In outlookApplication.GetNamespace("MAPI").Folders("Work").Folders("Sent Items").Items.Restrict("[Subject] = """ & email_subject & """")
If outlookMailItem.Subject = email_subject Then
om.SaveAs "C:\testing\test.msg"
Exit For
End If
Next om
I guess I'll have to come up with a scheme to uniquely tag each email to then search by.