Need Help for fire department

[Matt Melton]

OK our County Dispatch sends out emails/text messages with our current calls
for our fire department, however 3/4 of our Fire Department has sprint
phones and we only receive the first 160 characters. I need a little help
writing a macro for outlook that automatically forwards an email when
received through a specified account that only selects the first 160
characters and forwards it as the first message and then selects the rest of
the message and forwards it as the second message... Anyone got any ideas?
its been waaay to long since my coding classes... Does this make any sense
to anyone?

url:http://www.ureader.com/gp/1081-1.aspx

 

[Michael Bauer [MVP - Outlook]]

What Outlook version?

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Thu, 30 Oct 2008 09:30:49 +0800 schrieb Matt Melton:

 

[Matt Melton]

either outlok 2007 or the version right before

url:http://www.ureader.com/msg/10814096.aspx

 

[Michael Bauer [MVP - Outlook]]

With the Outlook object model you can't read by which account an e-mail has
been received. You could do that with Redemption (www.dimastr.com) for
instance.

Another workaround would be to create a rule to run a script. The condition
for that rule would be 'through specified account'.

That script could be something like this; you just have to add the
recipients:

Public Sub Example(Mail as Outlook.MailItem)
Dim Fw as Outlook.MailItem
Dim Length&
Dim Done&
Dim Msg$

Length=Len(Mail.Body)
While Done<Length
Msg=Mid$(Mail.Body, Done+1, 160)
Set Fw=Mail.Forward
' Set Recipients
Fw.Body=Msg
Fw.Send
Done=Done+160
Wend
End Sub

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Sat, 8 Nov 2008 08:00:32 +0800 schrieb Matt Melton: