QXエディタのフォルダに xqsmail.vbs を作成します。
set obj = createobject("Xqsmapi.XqsmapiCom")
obj.POP_DELE = 1
obj.POP_SILENT = 1
rc = obj.Initialize("pop3name", "smtpname", "username", "password", "mailaddr", "fullname")
rc = obj.RecvMailAll("d:\mailbox\mail.lst","d:\mailbox","d:\mailbox\mail.sun08.dup","d:\mailbox\mail.mbx")
set obj = Nothing
Initialize の引数
- pop3name POP3 サーバ名
- smtpname SMTP サーバ名
- username ユーザ名
- mailaddr メールアドレス
- fullname フルネーム
RecvMailAll の引数
- d:\mailbox を自分の環境に合わせます。
- 3つめの "d:\mailbox\mail.sun08.dup" では、mail.POP3ホスト名.dup としてください。