[VB]mail分離 (原創程式)

[VB]mail分離 (原創程式)

因為我們公司使用的是雷電伺服器

又常收到垃圾信 所以我建了一個名單 專門收垃圾信 目的是在收信垃圾信的網域

就是@後面的字串

這樣 我就能使用萬用字元來擋後面的字串

先用webmail把垃圾信全加入黑名單

然後 從mail server 把黑名單複製下來 存成mail.txt

例 abc@yahoo.com.tw

用程式載入按一下command2就會把mail名單裡面abc@去掉 只留yahoo.com.tw

存成blackmail.txt

這個程式就只有用到split 函數而以,有興趣的人直接下載原始碼

然後再把那些網域 貼到access或sql 去 查詢select dictinct xxx from mail

然後再把不擋掉的刪除 ,就直接把剩下的垃圾信網域 加到黑名單中

 


如有錯誤 歡迎指正