Never mind...... I was able to do it. In case anyone else need to know how:

Sub saveemail(myItem As Outlook.MailItem)
myItem.SaveAs "c:\mail\" & myItem.Subject & ".xml", olXML
End Sub

Thanks All!

"Matt" wrote:

Hello all!

I am using the below code to save all incoming emails as an XML file. The
problem is that a new incoming email overwrites the previous one. What I'd
like to do is name the XML file as the subject line of the incoming email.
Would someone please help me?

Sub saveemail(myItem As Outlook.MailItem)
myItem.SaveAs "c:\mail\test.XML", olXML
End Sub

Matt