![]() |
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. |
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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 |
Display Modes | |
|
|
![]() |
||||
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 |