Dear Paul, @2-Jun-2004, 15:32 Paul Jansen [PJ] in mid:[EMAIL PROTECTED] said to ETM:
PJ> can anyone post a macro to produce the information about a PJ> replied to message as shown in the example from Marck below? PJ> @1-Jun-2004, 19:42 -0400 (02-Jun 00:42 UK time) ETM [E] in PJ> mid:[EMAIL PROTECTED] said to Marck: I can, but it's heavily nested and complex! It relies on lists having "list" as a surname entry in the address book. I'll try to simplify it a bit for use here... ,------/ TMIntro \------ %wrapped='%QINCLUDE="TMBegin" %OFROMNAME %- [%qinclude(Initials)] in %QINCLUDE(MSGID) said%- %IF:"%ABOREPLYLastName"="list":"%QINCLUDE(TMListAttr)":":"' `------\ End /------ ,------/ TMBegin \------ @%QINCLUDE(SDate), %QINCLUDE(TMGET) %- %IF:'%QINCLUDE(TMGET)'<>'%ODATE("hh:nn")':%- '%QINCLUDE(TMZONE) (%- %IF:#%QINCLUDE(TMDATE)#<>#%ODATE("dd mmm yyyy")#:%- #%ODATE("dd-mmm") #%- %OTIME here)':'' `------\ End /------ ,------/ SDate \------ %SETPATTREGEXP="(?im-s)^Date:.*?\s(\d{1,2})\s"%- %REGEXPMATCH="%HEADERS"-%- %SETPATTREGEXP='(?im-s)^Date:.*?\s\d{1,2}\s(...)'%- %REGEXPMATCH='%Headers'-%- %SETPATTREGEXP="(?im-s)^Date:.*?\s(\d{4})"%- %REGEXPMATCH="%Headers" `------\ End /------ ,------/ TMget \------ %SETPATTREGEXP="(?im-s)^Date\:.*\s([\d]{1,2}\:[\d]{1,2})%- (\:[\d]{1,2})?"%- %REGEXPBLINDMATCH(%HEADERS)%SUBPATT(1) `------\ End /------ ,------/ TMZone \------ %SETPATTREGEXP="(?m-s)^Date:.*\d\d:\d\d:\d\d.*([+-]\d\d\d\d)"%- %REGEXPBLINDMATCH="%HEADERS"%SUBPATT="1" `------\ End /------ ,------/ TMDate \------ %SETPATTREGEXP="(?im-s)^Date\:.*?,\s([\d]{0,2}\s[\S]{0,3}%- \s[\d]{0,4})"%- %REGEXPBLINDMATCH="%OHEADERS"%SUBPATT="1" `------\ End /------ The Initials QT is the 3 QT set from the library: http://www.silverstones.com/thebat/Library.html#initials ,------/ MSGID \------ mid:%SETPATTREGEXP=";<(.*)>"%REGEXPMATCH="%OMSGID" `------\ End /------ ,------/ TMListAttr \------ %IF:"%SETPATTREGEXP='@'%REGEXPMATCH='%OTONAME'"<>"":%- ":":" to %OTOFNAME:"%- `------\ End /------ -- Cheers -- //.arck D Pearlstone -- List moderator and fellow end user SB! v2.11 on Windows XP 5.1.2600 Service Pack 1 '
pgpz3YOAp5Ifv.pgp
Description: PGP signature
________________________________________________ Current version is 2.11.00 | 'Using TBUDL' information: http://www.silverstones.com/thebat/TBUDLInfo.html
