A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

strip out leading text from a forwarded email.



 
 
Thread Tools Search this Thread Display Modes
  #1  
Old March 15th 06, 11:37 PM posted to microsoft.public.outlook.program_vba
anonymous
external usenet poster
 
Posts: 1
Default strip out leading text from a forwarded email.

I'm hoping some of you Microsoft MVP can point me in the right direction...

Is there a way to strip leading text from an incoming email using VBA in
outlook?

I have email forwarded by a colleague at work (a mailing list) and I'd like
to strip out his forward info so the body of the email shows up.

I've done some VBA programming with Access and some minor stuff in Excel and
WRQ-reflections.

I was hoping someone might be able to point me in the right direction as to
how to accomplish this.

I was thinking I could run a macro on incoming mail that get's applied via a
filter.

Thanks for any suggestions!

Bruno

Please reply to group or brunoskiba_at-hotmail.com



"Michael Bauer" wrote in message
...

Am Wed, 8 Feb 2006 22:37:26 -0800 schrieb Leech:




Try this please:




Public Sub WriteFile(sPath As String, _


sText As String, _


Optional ByVal bAppend As Boolean _


)


On Error GoTo AUSGANG


Dim lFileNr As Long




lFileNr = FreeFile




Select Case bAppend


Case False


Open sPath For Output As #lFileNr


Case Else


Open sPath For Append As #lFileNr


End Select




Print #lFileNr, sText;




AUSGANG:


If lFileNr Then


Close #lFileNr


End If




If Err.Number Then Err.Raise &H800A0000 Or Err.Number, _


Err.Source, Err.Description, Err.HelpFile, Err.HelpContext


End Sub






--


Viele Gruesse / Best regards


Michael Bauer - MVP Outlook


-- www.vbOffice.net --






Hi there!




Need Yr help.


I have a simple txt file and need to add "//" (these two symbols) to the


end


of the file (last string). Hv tried different ways but always hv carrier


return code between last text string and "//".


example:


text: BLA BLA BLA -need this BLA BLA BLA//




but always get:


BLA BLA BLA


//




thanks!




exmaple code:


dim nf as integer




nf = freefile




open lpfilename for binary access write as nf


put nf, LOF(nf), "=="


close nf



  #2  
Old March 17th 06, 10:55 AM posted to microsoft.public.outlook.program_vba
Klaus
external usenet poster
 
Posts: 7
Default strip out leading text from a forwarded email.

Hi,

hope I understand right.

What you could try is the following :

Normally, you do have some chars (e.g. ) at the beginning of a
citation.
You could search the textlines for these characters (at the start of
each line) to differ between newer and elder text.

For example :

Hi, this is new text

and this is citation


and this is even older citation


Hope this will help you further

Klaus

 




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Images not showing in forwarded email Max Outlook Express 2 March 15th 06 03:48 AM
In one profile, HTML forwarded messages read in plain text. Peter Sydney Outlook - General Queries 1 February 24th 06 10:22 PM
How do I append text to the body of a email? Beginner Outlook and VBA 2 February 9th 06 09:36 PM
sending email with pictures in other than html text Tim Outlook - General Queries 1 February 9th 06 09:23 AM
Dragging an email to the Calendar drops the email body text yan Outlook - Calandaring 2 February 1st 06 01:23 AM


All times are GMT +1. The time now is 10:42 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.