Hi, Hoping someone can help. I have absolutely no vba experience at all so am looking for a complete hand holding experience if possible!

I need to be able to set up an auto rule to trigger when a set e-mail arrives (I can do this bit) that uses a piece of script to extract an email address from the body of the email and fwd a message on to the extracted email.

The email address in the body of the message will always be preceeded by Email Address :

although there are a number of spaces between the end of address anf the colon but not sure if that matters for a script?

Can anyone help? Outlook 2003

Thanks

Annabel

some further info that looks like it might effect how script works

the format of the email appears to contain tables

the attachment e-mail2 is how the email looks, and email1 is how it copy and pastes into words with tables displayed

Attached Images

	email2.JPG (11.4 KB, 1 views)
	email1.JPG (12.6 KB, 0 views)

Ok with 7 hours of googling this is how far i've got - I'm stuck on the Split function (nr bottom) bit though as my email address line contains tabs and spaces and i can't find out how to tell it i only want the bit around the @



Sub plain(MyMail As MailItem)
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim olMail As Outlook.MailItem
Dim emailtosend As String

strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set olMail = olNS.GetItemFromID(strID)
olMail.BodyFormat = olFormatPlain
olMail.Save
Set Msg = olNS.GetItemFromID(MyMail.EntryID)
Msg.BodyFormat = olFormatPlain
'CALL THE SUB TO PARSE BODY TEXT AND GET THE EMAIL
emailtosend = SearchBody(Msg.Body)
If emailtosend “” Then
Set NewForward = Msg.Forward
With NewForward
.Subject = Msg.Subject
.To = emailtosend
.Body = Msg.Body
.Send
End With
With Msg
.UnRead = False
.FlagStatus = olNoFlag
End With
Else
GoTo ExitProc
End If
ExitProc:
Set NewForward = Nothing
Set Msg = Nothing
Set objItem = Nothing
End Sub
Function SearchBody(msgbody) As String
lines = Split(msgbody, vbCrLf)
'–GET THE EMAIL TO SEND TO
For Each Line In lines
If InStr(Line, "Email Address") Then
parsed = Split(Line, ":")
If InStr(parsed(1), "@") Then
'return the email address
SearchBody = parsed(1)
End If
End If
Next
End Function