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

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:

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

either outlok 2007 or the version right before

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

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 DoneLength
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:

either outlok 2007 or the version right before

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