Buying Need to make Auto save emai contentl to hard disk script

Need to make Auto save email content to hard disk script. It should be saved as plain text file.

In Thunderbird is the best as it's lite, but in M Outlook, there is a job that needs modification. Take a look if you can make it

This is for auto save attachment, while I need to save content, to a text file. The new email will overwrite the old one. From, and header will be in the text file also.

The format should be
From
header
content

Sub SaveToFolder(MyMail As MailItem)
Dim strID As String
Dim objNS As Outlook.NameSpace
Dim objMail As Outlook.MailItem
Dim objAtt As Outlook.Attachment
Dim c As Integer
Dim save_name As String
'Place path to sav to on next line. Note that you must include the
'final backslash
Const save_path As String = "X:\SHARE\VCMS CSV\CSV\"

StrID = MyMail.EntryID
Set objNS = Application.GetNamespace("MAPI")
Set objMail = objNS.GetItemFromID(strID)

If objMail.Attachments.Count > 0 Then
For c = 1 To objMail.Attachments.Count
Set objAtt = objMail.Attachments(c)
Save_name = Left(objAtt.FileName, Len(objAtt.FileName) - 4)
'save_name = save_name & Format(objMail.ReceivedTime, "_mm-dd-yyyy_hhmm")
Save_name = save_name & Right(objAtt.FileName, 4)
ObjAtt.SaveAsFile save_path & save_name

Next
End If

Set objAtt = Nothing
Set objMail = Nothing
Set objNS = Nothing
End Sub

Code (markup):

souce : http://astahost.com/info.php/ms-outlook-rules_t9458.html

Paying via paypal, I need this within 6 hours, and i'm low on budget.

 

Could I get more information? You need the attachment saved? or the message? If you could drop me your msn or skype ID w can discuss this further, I have experience in vb and I am a full time web developer, im sure we can work something out,

Thanks,
S