QMAIL3 まとめサイト

メール検索

2010-10-06T23:25:56+09:00

&topicpath(top=トップ) #contents(fromhere=true) **インデックス作成バッチファイル（Hyper Estraier） mkindex.batとでも名前を付けてaccountsフォルダーに保存。 >cd /d %0\.. >for /d %%A in (*) do ( >cd "%CD%\%%A" >estcmd gather -cl -fm -cm -sd ".\index" ".\msg" >) estcmdの部分を下記に変えるとそれぞれ estcmd purge -cl ".\index"　（削除メールのインデックス削除） estcmd optimize ".\index"　（インデックスの最適化）ができるので、別のバッチファイルとしてそれぞれ保存すればいい。どれもaccounts以下のすべてのアカウントに対して行います。 **Hyper Estraierのインデックス作成の高速化すでにインデックス化されたメールを無視して新規のメールのみインデックス化させる方法です。 1) Qmail3のオプション－検索をカスタムにして、更新のところを下記に変更。 >cscript qm_gather.js "$index" "$msg" 2)下記をqm_gather.jsとしてqmail3と同じフォルダに保存 >var ARGV, index,msg; >var WshShell = new ActiveXObject('WScript.Shell'); >ARGV = WScript.Arguments; >index = ARGV(0); >msg = ARGV(1); >var objExec = WshShell.Run('cmd /C cscript //B find.js "' + msg + '" | estcmd gather -cl -fm -cm -sd "' + index + '" -', 10, true); >var objExec = WshShell.Run('cmd /C estcmd create -attr from seq -attr to seq -attr cc seq -attr subject seq -attr @cdate seq "' + index + '"',10,true); 3)accountsフォルダとqmail本体のあるフォルダにfind.jsという名前で次行以下を保存。 >var ARGV, index,msg; >var WshShell = new ActiveXObject('WScript.Shell'); >var fso = new ActiveXObject("Scripting.FileSystemObject"); >ARGV = WScript.Arguments; >msg = ARGV(0); > >msg = msg.replace("\\","\\\\"); >var fldr, fs, fc, f; >fldr = fso.GetFolder(msg); >fs = new Enumerator(fldr.SubFolders); >for (;!fs.atEnd(); fs.moveNext()){ >fc = new Enumerator(fs.item().files); >for (; !fc.atEnd(); fc.moveNext()){ >f = fc.item(); >if(f.attributes && 32){ >f.attributes = f.attributes - 32; >WScript.StdOut.WriteLine(f); >} >} >} ＜注意＞必要なときに全文検索窓の「インデックスの更新」を押せば、インデックス化されていないメールのみをインデックス化するので早くなります。ただし、アーカイブ属性の確認を毎回行うので、この部分をもっとうまく処理すれば更なる高速化が可能です。さらに、これに対応する全アカウントに対する新規メールインデックス化を行うためのバッチは下記のとおり。 mkindex.batとでもして次行以下をaccountsフォルダに保存 >cd /d %0\.. >for /d %%A in (*) do ( >cd "%CD%\%%A" >cscript //B ..\find.js ".\msg" | estcmd gather -cl -fm -cm -sd ".\index" - >estcmd create -attr from seq -attr to seq -attr cc seq -attr subject seq -attr @cdate seq -attr message-id seq ".\index" >) おいらはタスクスケジューラでアイドル時にこれを実行させてます。 estcmd createの行は、属性検索を使わなければ不要です。 **AHK常駐版インデックス作成バッチファイル（Hyper Estraier）「Hyper Estraierのインデックス作成の高速化」のアイドル時実行関係をAutoHotKeyにやらせる版です。 MailBoxDirを環境に合わせて変えて、mkindex.ahkとでもしてどこでもいいんで保存して実行してください。常駐して、10分間操作がなかったら全アカウントインデックス化します。パイプ処理の方法が分からなかったので一時ファイル作成・削除をしてます。ご利用は自己責任で。 >#Persistent > >#SingleInstance >SetBatchLines, -1 ; Make the operation run at maximum speed. > >;DefIcon=D:\MyDoc\icon\famfamfam_silk_icons_v\icons\clock.ico ;通常タスクトレイアイコン >;WorkIcon=D:\MyDoc\icon\famfamfam_silk_icons_v\icons\clock_red.ico ;処理中タスクトレイアイコン >;Menu,TRAY,Icon,%DefIcon% > >;======================================================= >;main >;======================================================= >SetTimer,IndexMail,1000 >return > >;------------------------------------------------------- >;メールインデックス処理 >;------------------------------------------------------- >IndexMail: >If A_TimeIdlePhysical>600000 ;10分以上操作を行っていなければやる >{ > if IndexMailFlag<>1 > { > gosub, DoIndexMail > IndexMailFlag=1 > } >} >else >{ > IndexMailFlag=0 >} >return > >;------------------------------------------------------- >;メールインデックス実処理 >;------------------------------------------------------- >DoIndexMail: >;Menu,TRAY,Icon,%WorkIcon% >SplashTextOn, , , メールインデックス更新中 > >MailBoxDir=D:\bin\QMAIL3\mail\accounts ;accountsフォルダの指定 >AMailList=%MailBoxDir%\AMailList.txt ;処理対象ファイルリスト名 > >Loop, %MailBoxDir%\*, 2 >{ > IfExist, %AMailList% ;処理対象ファイルリストが既にあったらなんもしない > { > Msgbox, %AMailList% が既に存在します > } > else > { > IndexDir=%A_LoopFileLongPath%\index > Loop, %A_LoopFileLongPath%\*.msg, , 1 > { > IfInString, A_LoopFileAttrib , A > { > FileAppend, %A_LoopFileLongPath%`n, %AMailList% > FileSetAttrib, -A > } > } > IfExist, %AMailList% > { > runwait, estcmd gather -cl -fm -cm -sd %IndexDir% %AMailList%, , Hide > FileDelete, %AMailList% > } > } >} > >SplashTextOff >;Menu,TRAY,Icon,%DefIcon% >return >

2ch過去ログ

2010-05-12T23:30:33+09:00

&topicpath(top=トップ) **現在のスレ高機能フリーメーラー QMAIL3 part4 http://pc11.2ch.net/test/read.cgi/software/1194405825/ **過去ログ part3: http://pc11.2ch.net/test/read.cgi/software/1169176812/ (datファイル / htmlファイル) Part2: http://pc9.2ch.net/test/read.cgi/software/1154863783/ ([[datファイル>http://www42.atwiki.jp/qmail/?cmd=upload&act=open&page=2ch%E9%81%8E%E5%8E%BB%E3%83%AD%E3%82%B0&file=QMAIL3_part2.dat]] / [[htmlファイル>http://www42.atwiki.jp/qmail/?cmd=upload&act=open&page=2ch%E9%81%8E%E5%8E%BB%E3%83%AD%E3%82%B0&file=QMAIL3_part2.html]]) Part1: http://pc7.2ch.net/test/read.cgi/software/1037582559/ ([[datファイル>http://www42.atwiki.jp/qmail/?cmd=upload&act=open&page=2ch%E9%81%8E%E5%8E%BB%E3%83%AD%E3%82%B0&file=QMAIL3_part1.dat]] / [[htmlファイル>http://www42.atwiki.jp/qmail/?cmd=upload&act=open&page=2ch%E9%81%8E%E5%8E%BB%E3%83%AD%E3%82%B0&file=QMAIL3_part1.html]]) **2ch QMAIL3スレのテンプレ //-新スレのテンプレが実質的な情報サイトとして機能している。 -このサイトが出来るまでの間、新スレのテンプレがまとめ役に。まとめて転載。 -QMAIL3スレが立っているsoftware板の設定は[[こちら>http://pc11.2ch.net/software/SETTING.TXT]]。書き込み一覧表示で省略されずに表示されるのは16行まで(BBS_LINE_NUMBER=16)、1書き込みでは最大32行まで投稿できる。 #contents(fromhere=true) *** 概要 Windows および Windows CE で動作するメーラー。開発は QMAIL2 から QMAIL3 へ移行。設定などややこしい部分もあるのでドキュメントは必ず熟読すべし。質問はそれからのほうがスムーズです…作者メモやMLログも参考にしてください。 QMAIL3は MTA の qmail とは関係ありません。 ■QMAIL3公式 http://q3.snak.org/wiki/ ■作者メモ http://snak.tdiary.net/ ■バグ報告 http://q3.snak.org/bts/guest.cgi?project=Q3&action=top ■QMAIL3スレまとめサイト@wiki http://www42.atwiki.jp/qmail/ ■前スレ part2 http://pc9.2ch.net/test/read.cgi/software/1154863783/ part1 http://pc7.2ch.net/test/read.cgi/software/1037582559/ ※関連情報は>>2-10あたりを参考。 *** 特徴 ■特徴・POP3, SMTP, IMAP4, NNTP, RSS, Atomのサポート・各種認証（APOP, SMTP認証）のサポート・SSL/STARTTLSのサポート・S/MIMEのサポート・PGP/GnuPGのサポート（Windows版のみ）・HTMLメール表示機能（WindowsとWindows Mobile 5.0, Pocket PC 2002, 2003, 2003SE, sigmarion III版のみ）・マクロを使用した振り分け・色づけ・フィルタ機能・テンプレートを使用したメッセージの表示・編集機能・namazu, Hyper Estraierと連動した全文検索機能（Windows版のみ）・学習型スパムフィルタ（Windows版のみ）・カスタマイズ可能な画面表示・メニュー・キーアサイン・ツールバー ■公式ドキュメント QMAIL3ドキュメント http://q3.snak.org/doc/ QMAIL2ドキュメント http://www.snak.org/software/qmail2/doc/manual/ *** 全文検索 HyperEstraier の導入方法 ■全文検索 HyperEstraier の導入方法 1.HyperEstraier を適当なフォルダに展開、そこに PATH を通す。 2.[オプション]-[検索]-[全文検索]で HyperEstraier を選択。 3.[検索]-[全文検索]-[インデックスの更新]を実行。コレで HyperEstraier による全文検索が可能に。検索対象はインデックスに含まれてるメールだけなのでインデックス更新は適度に実行すること。タスクスケジューラで定期更新とか。 HyperEstraier http://hyperestraier.sourceforge.net/ *** OEからの移行方法 ■OEからの移行方法 1.OEのメールをUNIX mbox 形式に変換。 2.その後文字コードをShift-JISに変更してからインポートすればOK。変換ソフト http://www.tietew.net/soft/OE2/ *** QMAIL3 をデフォルトのメーラにしたい ■QMAIL3 をデフォルトのメーラにしたい素直にインストーラ版を使ってください Zip 版で自力で設定したいなら WindowsFAQ などのサイトを参考。その上で「フォルダオプション」の「ファイルタイプ」タブ以下から下記のように設定。拡張子：利用不可ファイルタイプ：URL : MailTo プロトコルアクション：open アクションを実行するアプリケーション：C:\QMAIL3\q3u.exe -s "%1" *** 直ぐ送信したい、自動巡回・迷惑メールフィルタが機能しない、BCC付けると送信済みメッセージが二重になる ■直ぐ送信したい FileSendNowってアクションがあるんで、toolbars.xml に

FAQ

2010-05-09T02:20:09+09:00

&topicpath(top=トップ) まずは本家のFAQで探しましょう。 http://q3.snak.org/doc/FAQ.html それでも解決しなければ下を見るべし。 #contents(fromhere=true) **送信してもメッセージが送信されません [ファイル]-[すぐに送信]とすればすぐに送信されます。送信でこの動作をさせたいときは本家FAQ参照。 ■本家FAQ http://q3.snak.org/doc/MessagesAreNotSent.html **迷惑メールフィルタが機能しませんクリーンなメールが100通以上学習されていない場合、スパムフィルタが機能しないようになっています。 ■本家ドキュメント http://q3.snak.org/doc/JunkFilter.html **自動巡回しませんメニューバー → ツール → 自動巡回にポチってる？ **BCC付けると送信済みメッセージが二重になる送信済みフォルダのプロパティで送信済みフラグのチェックを外し、ゴミ箱のプロパティで送信済みフラグのチェックを入れると、送信済みメッセージはゴミ箱に入ります。 ■本家FAQ参照 http://q3.snak.org/doc/WhyReceiveSentMessage.html **他メーラーからアドレスをインポートしたいんですが？アドレス帳のデータはxmlなので、自分でスクリプト書いて移行してください。 ■本家ドキュメント http://q3.snak.org/doc/AddressBookXml.html ***そんなスキル持ってませんが？ QMAIL3では送信済みメッセージの宛先・ccをデフォルトでは過去10アドレス覚えています。qmail.xmlのRecentAddressセクションのmaxで覚えさせるメール数が変えられるので100なり200なりにすればアドレス帳なくても覚えているアドレス直打ちしていけば、アドレスの自動補完ができます。また、Outlook（OL）やOutlook Express（OE）などのアドレス帳を参照する機能もあるのでオプションで設定しましょう。QMAIL3のアドレス帳はしょぼいのでOL、OEのアドレス帳を使ったほうが、他ソフトでも使えて便利かもしれません。自動補完の設定はqmail.xmlで

～

の間に >200 などを挿入する。 ■本家ドキュメント http://q3.snak.org/doc/AddressAutoComplete.html **QMAIL3でHotmailは受信できますか？ POP3/SMTPによるメールの送受信に対応したのでできます。 **Gmailの受信設定がうまくいきませんユーザータブの受信、送信ともに設定が必要。受信だけでは駄目。 **いろいろ設定をいじってんだけどバージョンアップ毎に書き換えるの面倒だよ！どうもうまい方法はないようで、多くの人は手書きでやってるみたいです。変更が必要な設定ファイルはインストーラバージョンでバージョンアップすれば元の設定ファイルがbakファイルとして保存されるから、それ見て修正。 **フォルダーの並び順を変えたいんですが？設定をいくらいじってもできません。自動ソートされる仕様です。フォルダー名の前に数字を書くとか、アンダーバー _ 、半角スペース、!マークにしておくとかするしかありません。 ■本家FAQ http://q3.snak.org/doc/HowToChangeOrderOfAccountsAndFolders.html **署名を挿したり外したりできませんが？常に同じ署名を使うならテンプレート。必要時に使いたい場合は定型文に登録。過去ログでもいろいろ要望はありましたが具体的に本家で要望するにいたっていません。 **アドレス帳からメール作成した時に名前を入れたくないのですが？オプション → アドレス帳 → メールアドレスのみ挿入する **サブアカウントの使い方、意味が分かりません ***マルチアカウント -複数のアカウントを同一ソフト内で使用 -受信/送信箱はそれぞれのアカウントで独立 ***サブアカウント -そもそもは受信環境の違う場所で同一アカウントを使用する為に作る物（モバイルで使用する事を考慮していた） -例えば自宅では無線LAN、外ではダイアルアップや会社からのアクセスと言う接続環境を区別する為の物 -受信/送信箱は共有 -発展形として、複数アカウントを同一の受信/送信箱で共有する用途にも使用可能 **印刷できないよ！関連付けがおかしくなっているようです。本家FAQを見て直しましょう。 http://q3.snak.org/doc/PrintingAssociation.html **印刷でページ指定したい IE7をインストールした上で、標準のブラウザをIE7にすれば出来ます。他のブラウザを標準ブラウザにしている場合は、.htmlのprintの設定のみIEに関連付けるとページ指定できます。このときIE7のインストールは必須です。関連付けは本家FAQを見て直してください。 http://q3.snak.org/doc/PrintingAssociation.html **アカウント作るときのメークボックスだけど[1メッセージ1ファイル]と[1ファイル]とどっちがいいの？特に理由がなければ[1メッセージ1ファイル]としましょう。[1ファイル]にすると全文検索が出来ません。それぞれの長所・短所は本家ドキュメントに記載されています。 ■本家ドキュメント http://q3.snak.org/doc/CreateAccountDialog.html **漢字変換が出来なくなりますた 234 ：白ロムさん：2007/09/15(土) 01:21:37 ID:s29ovkcA0 QMAIL3を導入してみて、使い勝手よくて是非常用したいんだけど新規メールなどの文書入力時に全角入力や漢字変換ができない。準備する上で何か間違ってるでしょうか？ _ 237 ：白ロムさん：2007/09/15(土) 10:14:53 ID:mOy/1D7g0 >>234 [qmail.xmlのGlobal/ImeControlを0にするとIMEの制御をしなくなります。] http://q3.snak.org/bts/guest.cgi?project=Q3&action=view_report&id=1351 これで解決した気がする。困ったらqmail3のサイトのバグトラックで検索すると良いよ。

設定集2

2010-03-15T18:55:27+09:00

&topicpath(top=トップ) #contents(fromhere=true) **追加フォルダの作成フォルダビュー → タップ＆ホールド（押したまま） → 作成 **特定アカウントからの送信時に、常にバックアップ用メールアドレスにも送るメール作成テンプレートをいじる。(やっつけ -オプション→「その他2」→「自分をBCCに含める」にチェックして以下のファイルをいじる。「meruado@example.com」を自分のメールアドレスに変更。いじる前に./QMAIL3/MAIL/templates/mailフォルダ自体をコピーしておこう。 -./QMAIL3/MAIL/templates/mail/new.template: 旧(line7)：@Addressbook($to, '', @If($bcc, @I, '')), 新(line7)：→@Addressbook($to, '', @If($bcc, 'meruado@example.com', '')), 旧(line9)：@If($bcc, @Concat('Bcc: ', @I(), '\n'), '')))), 新(line9)：→@If($bcc, @Concat('Bcc: ', 'meruado@example.com\n'), '')))), -./QMAIL3/MAIL/templates/mail/reply.template(line9): -./QMAIL3/MAIL/templates/mail/reply_all.template(line20) も同じ旧：@Concat('Bcc: ', @I(@Account(), X-QMAIL-SubAccount), '\n')) 新：→@Concat('Bcc: ', 'meruado@example.com\n')) -./QMAIL3/MAIL/templates/mail/url.template(line9): 旧：@Concat('Bcc: ', @I(), '\n')) 新：→@Concat('Bcc: ', 'meruado@example.com\n')) -ただし上の方法だと「自分をBCCに含める」にチェックしている全てのアカウントで送信メールが 'meruado@example.com' 宛に送られてしまう。「myAccount」アカウントだけでBccを変更したいときは…… -./QMAIL3/MAIL/templates/mail/ の内容を ./QMAIL3/MAIL/myAccount/templates/ にコピーし、そのファイルにだけ上の変更を施す。 -./QMAIL3/MAIL/templates/mail/ フォルダの中身を以下のように書き換える。 -./QMAIL3/MAIL/templates/mail/new.template: 追加(line4-5) ：@Set('bccaddr', @If(@Equal(@Account(), 'myAccount'), 'meruado@example.com', @I())), 旧(line7)：@Addressbook($to, '', @If($bcc, @I(), '')), 新(line7)：→@Addressbook($to, '', @If($bcc, $bccaddr, '')), 旧(line9)：@If($bcc, @Concat('Bcc: ', @I(), '\n'), '')))), 新(line9)：→@If($bcc, @Concat('Bcc: ', $bccaddr, '\n'), '')))), -./QMAIL3/MAIL/templates/mail/reply.template(line9): -./QMAIL3/MAIL/templates/mail/reply_all.template(line20) も同じ旧：@Concat('Bcc: ', @I(@Account(), X-QMAIL-SubAccount), '\n')) 新：→@Concat('Bcc: ', @If(@Equal(@Account(), 'myAccount'), 'meruado@example.com', @I(@Account(), X-QMAIL-SubAccount)), '\n')) -./QMAIL3/MAIL/templates/mail/url.template(line9): 旧：@Concat('Bcc: ', @I(), '\n')) 新：→@Concat('Bcc: ', @If(@Equal(@Account(), 'myAccount'), 'meruado@example.com', @I()), '\n')) **xmlのカスタマイズ例 -例：メール一覧で左右キーで前後のフォルダを表示、クリアでメールを削除 (QMAIL3/MAIL/profiles/keymap.xmlを編集) -例：メール表示中、左右キーでフォルダ内より前後のメールを表示 (QMAIL3/MAIL/profiles/keymap.xmlを編集) -例：メール編集で、ヘッダ入力欄の間をtabに加え、カーソル上下で移動 (QMAIL3/MAIL/profiles/keymap.xmlを編集) (略) -例：メール編集時の右ソフトキーメニュー項目に「件名を編集(入力フォーカスを本文からヘッダ入力欄に移動)」を追加 (QMAIL3/MAIL/profiles/menu.xmlを編集) (略：ここら辺左ソフトキーのメニュー項目) (この後も略) **バイブ鳴動をメール受信時の通話着信とで分ける方法 MortScriptを使用して鳴り分けさせる方法。 1. [[Outlook以外のメーラーで自動受信させる場合の設定方法>http://smart-pda.net/hw/mail/]]を参照して、hdmobilaunch.mscrを以下のように編集。起動メーラをQMAIL3に変更。(q3u.exe "-q -g 巡回名") 未読レジストリの監視はしない。スクリプト開始時に未読レジストリを1増やし、終了時に1減らす。(スクリプト実行中だけ未読ランプをつける) メッセージは必ず出す。(これで未読ランプを維持する) バイブする箇所を以下のサブルーチンに差し替え。　 Sub Alert 　Vibrate(200) 　Sleep(200) 　Vibrate(200) 　Sleep(1000) 　Vibrate(200) 　Sleep(200) 　Vibrate(200) EndSub 　これでセンターにメールがあるとき「ブブッ、ブブッ」って鳴る、以下スクリプト。当然、Lightmail.exe(pushservice.ini)→willcommaillaunch.exe(willcommaillaunch.ini) →本スクリプト→QMAIL3 という流れになるよう各パス指定を確認。 http://w-zero3.org/uploader/src/up1710.zip

メール作成

2009-10-28T10:18:35+09:00

&topicpath(top=トップ) #contents(fromhere=true) **件名・宛先・添付ファイルなしの場合に警告を出す次のルールをrules.xmlで指定してください。 > > >@Progn(@If(@Not(To),@Set('a','- To\n'),1),@If(@Not(@Subject(@True(),@True())),@Set('a',@Concat($a,'- Subject\n')),1),@If(@Not(@Body()),@Set('a',@Concat($a,'- 本文\n')),1),@If(@And(@RegexMatch(@Body(),/添付|attached|attachment/i),@Not(@Attachment())),@Set('a',@Concat($a,'- 添付\n')),1),@If($a,@Progn(@Draft(@True()),@If(@Equal(6,@MessageBox(@Concat($a,'\nがないけど送信する？\n----------------------------------------\n　はい(Y)　－　そのまま送信\n　いいえ(N)－　再編集'),68)),@Draft(@False()),@InvokeAction('MessageCreate','edit','',@URI()))),@Exit())) > > 下記の状況で警告を出すようにしました -Toが空白のとき -Subjectが空白のとき（Re:だけのときなども空白とみなす） -本文に「添付」「attached」「attachment」の単語があるにもかかわらず添付ファイルがないとき警告が出たら？ -はい(Y)－そのまま送信する -いいえ(N)－送信せず、メール編集画面に戻る ※ 下記のように4を68にすると警告音もでます >,@MessageBox(@Concat($a,' がないけど送信する？\n-------------------------\n　はい(Y)　－　そのまま送信\n　いいえ(N)－　再編集'),68)) ※ IMAP4アカウントでは機能しません。IMAP4ではスクリプトで対応します。→ [[スクリプト集]] ■本家メモ参照 http://snak.tdiary.net/20070213.html#p02 **指定ドメイン以外へのメール送付に警告を出す次のルールをrule.xmlで指定してください。 > > >@Progn(@Set('tgt',@If(@And(Cc,Bcc),@Concat(To,', ',Cc,', ',Bcc),@If(Cc,@Concat(To,', ',Cc),To))),@While($tgt,@Progn(@Set('mail',@If(@SubstringBefore($tgt,', '),@SubstringBefore($tgt,', '),$tgt)),@Set('tgt',@SubstringAfter($tgt,', ')),@If(@RegexMatch($mail,/@hogehoge\.com|@hogera/i),1,@Set('msg',@Concat($msg,'- ',$mail,'\n'))))),@If($msg,@Progn(@Draft(@True()),@If(@Equal(6,@MessageBox(@Concat($msg,'\nが指定外メールだけど送信する？\n----------------------------------------\n　はい(Y)　－　そのまま送信\n　いいえ(N)－　再編集'),68)),@Draft(@False()),@InvokeAction('MessageCreate','edit','',@URI()))),@Exit())) > > 許可するドメイン、アドレスの一部を正規表現で指定します。上記のマクロの　@hogehoge\.com|@hogera　の部分を変更します。この場合では - @hogehoge.com - @hogera のどちらかを含むメール以外で警告を出します。この部分を - @hogera\.com とすればこのドメイン以外で警告を出します。.は\.とエスケープすることに注意してください。 **返信メールの名前に自動で"様"を付ける ■reply.templateの中を下記に変更元 >To: {@If(@Exist('Reply-To'), Reply-To, From)} 変更後 >To: {@Progn(@Set('to', @If(Reply-To, Reply-To, From)), @RegexReplace($to, /(?!様)("?) $from, 変更後 >@Progn(@Set('to', @If(Reply-To, Reply-To, From)), @RegexReplace($to, /(?!様)("?) @Concat('Cc: ', $val, '\n'), 変更後 >@Progn(@Set('val1',@RegexReplace($val, /(?!様)("?) 1 ※ キーを作らなければBCCにならない。ならないようにキーを作る場合は値を0にする。 ■reply_all.template、reply.template @Equal(@Profile('', 'Global', 'Bcc', '1'), '0'), の前に下記を追加↓ >@Equal(@Profile(@Concat('accounts/', @Account(), '/account.xml'), 'Global', 'Bcc','0'), '1'), >@Concat('Bcc: ', @I(@Account(), X-QMAIL-SubAccount), '\n'), ■new.template、forward.template @Set('bcc', @Equal(@Profile('', 'Global', 'Bcc', '1'), '1')), を下記に入れ替え↓ >@Set('bcc', @Or(@Equal(@Profile('', 'Global', 'Bcc', '1'), '1'),@Equal(@Profile(@Concat('accounts/', @Account(), '/account.xml'), 'Global', 'Bcc','0'), '1'))), -QMAILの設定にあるBCC付加オプションはBCCつけないにしてから、上記を必要なACCOUNTに対してKeyを付け加えればオケ。この設定法をする場合、「オプション」－「その他２」のBCC付加のチェックははずしておく。ここをチェックすると、すべてのアカウントでBCC付加になります。 **新規メールを常に署名を記載した状態で開く下記のマクロをnew.templateの最後に空行を付けないように付け加える。 >{@Progn( >@Set('acct',@Account()), >@If( >@Equal($acct,'_hogera'), >@Set('sig','hogera \nTEL 123456\nFAX 9876543'), >@Equal($acct,'hogu.co.jp'), >@Set('sig','hogu.co.jp\nHogera Hogu'), >@Set('sig','デフォルトの署名\nほげほげ') >), >@Concat('X-QMAIL-Signature: ','\n\n\n--\n',$sig) >)} 注意点 -このサンプルはサブアカウントは無視 -上記でhogera、hogu.co.jpというのがアカウント名。hogeraというアカウントならhogera 」となっている場合に、「ほげほげ」の部分を削除するに、テンプレートを変更します。 ■reply_all.template 元） >$from, >'\n', >@If($val, >@Concat('Cc: ', $val, '\n'), 変更後） >@RegexReplace($from,/[^>,]+ '\n', >@If($val, >@Concat('Cc: ', @RegexReplace($val,/[^>,]+ To: {@If(@Exist('Reply-To'), Reply-To, From)} 変更後） >To: {@If(@Exist('Reply-To'), @RegexReplace(Reply-To,/[^>,]+ ,]+ @If(@Sent(),@Concat('⇒ ',@FormatAddress(To,:FORMAT-NAME,:LOOKUP-FORCE)),@FormatAddress(From,:FORMAT-NAME,:LOOKUP-FORCE)) **HTMLのタグを取るテンプレート @Bodyを表示する部分を下記に変更 >{@If( >@RegexMatch(@Body('',1), /@Progn( >@Set('x',@Body('',1)), >@While( >@RegexMatch($x,/

((?:.|\n)+?\n(?:.|\n)+?)<\/PRE>/i),
>@Progn(
>@Set('dum',$_1),
>@Set('x',@RegexReplace($dum,/\n/,'
',@True())),
>@RegexReplace($x,/((?:.|\n)+?\n(?:.|\n)+?)<\/PRE>/i,$dum),
>)
>),
>@Set('x',@RegexReplace($x, /]*>(?!\n)/i, '¶', @True())),
>@Set('x',@RegexReplace($x, /]*>/i, '', @True())),
>@Set('x',@RegexReplace($x, /\n/, ' ', @True())),
>@If(@RegexMatch($x,/@Progn(
>@Set('x',@RegexReplace($x, /(.*)(.*)/i, '$2', @True())),
>@Set('x',@RegexReplace($x, /(<\/BODY>.*)(<\/BODY>)/i, '$2', @True()))
>),
>@Set('x',@Concat($x,'\n'))
>),
>@Set('x',@RegexReplace($x, /
/i, '¶', @True())),
>@Set('x',@RegexReplace($x, /(]*margin-bottom:1[0-9][^>]*>(?:(?!<\/P>).)*<\/P>)/i, '$0¶', @True())),
>@Set('x',@RegexReplace($x, /]*class=mso[^>]*>/i, '¶', @True())),
>@Set('x',@RegexReplace($x, /]*>/i, '¶¶', @True())),
>
>@Set('x',@RegexReplace($x, /\r|\n/, '', @True())),
>@Set('x',@RegexReplace($x, /.*<\/HEAD>/i, '', @True())),
>@Set('x',@RegexReplace($x, /]*>/i, '¶∬¶', @True())),
>@Set('x',@RegexReplace($x, /<[^>]*>/, '', @True())),
>@Set('x',@RegexReplace($x, /<|@Set('x',@RegexReplace($x, />|>/, '>', @True())),
>@Set('x',@RegexReplace($x, /&|&/, '&', @True())),
>@Set('x',@RegexReplace($x, /"|"/, '"', @True())),
>@Set('x',@RegexReplace($x, / | /, ' ', @True())),
>@Set('x',@RegexReplace($x, /’/, '\'', @True())),
>@Set('x',@RegexReplace($x, /¶[\s|¶]+¶/, '¶¶', @True())),
>@Set('x',@RegexReplace($x, /¶+∬¶+/, '\n\n----------------------------------------------------------------------\n', @True())),
>@Set('x',@RegexReplace($x, /\s+¶/, '¶', @True())),
>@Set('x',@RegexReplace($x, /¶¶¶+/, '¶¶', @True())),
>@Set('x',@RegexReplace($x, /¶/, '\n', @True())),
>@If(@RegexMatch($x, /&#\d{{2,6}};/),
>@Set('x',@Script('result.value =arguments(0).replace(/&#(\\d{{2,6}})\;/g,function($0,$1){{return(String.fromCharCode($1));}})','JScript',$x)),
>@True()
>),
>@Concat($x)
>),
>@Body(@Profile('', 'Global', 'Quote', '> '), 1)
>)
>}

**HTMLメールをHTMLメールで返信する
下記を create_HTML全員返信.template という名前でTemplates\mail フォルダに保存。返信したいHTMLメールを右クリックしてテンプレートからHTML全員返信を選ぶ。
自分でHTML書く必要あります。
あと、引用した元メールのHTMLを大幅にダイエットします。
>{@Catch(@Exist('From'), @Exit())}
>{
>  @Progn(@Set('val',
>              @Progn(@Set('from', @If(@Exist('Reply-To'), Reply-To, From)),
>                     @Set('to', @Remove(To, @Address(@I(@Account(), X-QMAIL-SubAccount)), @Address($from))),
>                     @Set('cc', @Remove(Cc, @Address(@I(@Account(), X-QMAIL-SubAccount)), @Address($from))),
>                     @Concat($to, @If(@And($to, $cc), ', ', ''), $cc))),
>         @Concat('To: ',
>                 $from,
>                 '\n',
>                 @If($val,
>                     @Concat('Cc: ', $val, '\n'),
>                     '')))
>}Subject: Re: {@Subject(@True(), @True())}
>{
>  @If(@Equal(@Profile('', 'Global', 'Bcc', '1'), '0'),
>      '',
>      @And(@Equal(@Profile('', 'Global', 'NoBccForML', '1'), '1'),
>           @Or(@Exist('X-ML-Name'), @BeginWith(Subject, '['))),
>      '',
>      @Concat('Bcc: ', @I(@Account(), X-QMAIL-SubAccount), '\n'))
>}{
>  @Progn(@Set('id', @MessageId()),
>         @Set('ref', @References(4)),
>         @Concat(@If($id,
>                     @Concat('In-Reply-To: ', $id, '\n'),
>                     ''),
>                 @If(@Or($ref, $id),
>                     @Concat('References: ',
>                             @If(@And($ref, $id),
>                                 @Concat($ref, ' ', $id),
>                                 $ref,
>                                 $ref,
>                                 $id),
>                             '\n'),
>                     '')))
>}X-QMAIL-Account: {@Account()}{
>  @If(X-QMAIL-SubAccount,
>      @Concat('\nX-QMAIL-SubAccount: ', X-QMAIL-SubAccount),
>      '')
>}
>X-QMAIL-Macro: @ForEach(@Messages('{@Concat('//', @Account(), '/', @Folder())}', {@Id()}), @Replied(@True()))
>X-QMAIL-OriginalCharset: {@BodyCharset(1)}{
>  @If(@Equal(@Profile('', 'Global', 'SaveSentInSameFolder', '0'), '1'),
>      @Concat('\nX-QMAIL-Sentbox: ', @Folder()),
>      '')
>}
>Content-Type: text/html;
> charset={
>@If(
>	@And(@Multipart(),@Catch(@If(@Part(0),@True(),@True()),@False())),
>	@If(
>		@RegexMatch(@Body('',2,@Part(0)),/|<\/DIV>|<\/FONT>/i),
>		@Progn(@Set('Body',@Body('',2,@Part(0)),:GLOBAL),@BodyCharset(2,@Part(0))),
>		@RegexMatch(@Body('',2,@Part(1)),/|<\/DIV>|<\/FONT>/i),
>		@Progn(@Set('Body',@Body('',2,@Part(1)),:GLOBAL),@BodyCharset(2,@Part(1))),
>		@RegexMatch(@Body('',2,@Part(1,@Part(0))),/|<\/DIV>|<\/FONT>/i),
>		@Progn(@Set('Body',@Body('',2,@Part(1,@Part(0))),:GLOBAL),@BodyCharset(1,@Part(0))),
>		@Progn(@Set('Body',@Body('',1,@Part(1)),:GLOBAL),@BodyCharset(1,@Part(1))),
>	),
>	@Progn(@Set('Body',@Body('',1),:GLOBAL),@BodyCharset(1))
>)}
>
>
>
>
>>
>ここに返信メールを書く。HTMLタグを書くときはpreタグ取ってください。
>
>
>----- Original Message -----

>From: {@Name(From)}

>Sent: {
>	@Progn(
>		@Set('x',@FormatDate(@Date(Date), '%W1, %M2 %D, %Y4 %h:%m %z', 2)),
>		@Concat($x)
>	)
>}

>To: {@Name(To)}

>{@If(@Exist('Cc'), @Concat('Cc: ',@Name(Cc),'
\n'), '')}Subject: {Subject}
>

>{@Progn(
>	@Set('x',$Body),
>	@Set('x',@RegexReplace($x, /^[-_=\.]+NextPart.*$/im, '', @True())),
>	@Set('x',@RegexReplace($x, /^--------------\w+-+$/m, '', @True())),
>	@While(
>		@RegexMatch($x,/
((?:.|\n)+?\n(?:.|\n)+?)<\/PRE>/i),
>		@Progn(
>			@Set('dum',$_1),
>			@Set('x',@RegexReplace($dum,/\n/,'
',@True())),
>			@RegexReplace($x,/((?:.|\n)+?\n(?:.|\n)+?)<\/PRE>/i,$dum),
>		)
>	),
>	@Set('x',@RegexReplace($x, /]*>(?!\n)/i, '¶', @True())),
>	@Set('x',@RegexReplace($x, /]*>/i, '', @True())),
>	@Set('x',@RegexReplace($x, /\n/, ' ', @True())),
>	@If(@RegexMatch($x,/		@Progn(
>			@Set('x',@RegexReplace($x, /(.*)(.*)/i, '$2', @True())),
>			@Set('x',@RegexReplace($x, /(<\/BODY>.*)(<\/BODY>)/i, '$2', @True()))
>		),
>		@Set('x',@Concat($x,'\n'))
>	),
>	@Set('x',@RegexReplace($x, /
/i, '¶', @True())),
>	@Set('x',@RegexReplace($x, /(]*margin-bottom: *1[0-9][^>]*>(?:(?!<\/P>).)*<\/P>)/i, '$0¶', @True())),
>	@Set('x',@RegexReplace($x, /]*class=mso[^>]*>/i, '¶', @True())),
>	@Set('x',@RegexReplace($x, /]*>/i, '¶¶', @True())),
>
>	@Set('x',@RegexReplace($x, /]*>/i, '', @True())),
>	@Set('x',@RegexReplace($x, //i, '', @True())),
>	@Set('x',@RegexReplace($x, /

QMAIL3 まとめサイト

メール検索

2ch過去ログ

FAQ

関連リンク

コメント

設定集2

メール作成