各位先進大家好： 之前好像有看過大家討論在以程式自動寄信時 如何檢查客戶的信箱位址是有效的功能，剛才找了好久沒找到，能否請知道如何作的先進指導一下... 感謝............. From OwenYang 03/19/2004

function ValidEmail(UseEmail: string): boolean;
var
 usepos1: integer;
   usepos2: integer;
begin
 result:=true;
   if copy(useemail, 1,1)='@' then
    result:=false;
   if not(pos(' ', useemail)=0) then
    result:=false;
 usePos1:=pos('@', useemail);
   if (usepos1=0) then
    result:=false;
   usepos2:=pos('.',useemail);
 if usepos2<(usepos1 2) then
    result:=false;
   if usepos2=length(useemail) then
    result:=false;
   if length(copy(useemail, usepos1 1, length(useemail)-usepos1))<5 then
    result:=false;
end;

網海無涯，學無止境! 發表人 - qoo1234 於 2004/03/20 13:35:50

感謝您的回覆... 不過這個函數是用來判斷信箱中的字串是否正確.. 但我想判斷的是該信箱位址否為有效.. 例如： abcd@ms3.hinet.net 像這樣的e-mail是正確的字串，但卻是無效的e-mail 之前好像有看過這方面的討論, 但找不到.. 有沒有先進能指導一下...感謝.... From OwenYang

做電腦很久了, 我想堅持是好事, 但不要鑽牛角尖 如果你有架mail server那你可以試試使用者使用你的mail帳號, 那就可以驗證你的當事人的帳號是否正確. 試試另一種方式是,利用當事人提供的郵件帳號, 發一封含有確認按鍵的電郵讓它連到一個你的網站, 經由asp或cgi...等方式寫入資料庫, 不但可以認證該電子郵件是有效的, 另外也可以確定它不是由程式或機器來完成的, 因為這是經由人的行為來發動認可的, 你可以參考MSN的PASSPORT申請流程 努力會更接近成功

------
努力會更接近成功

我想檢查 @ 後面的Mail Server是否存在，似乎比較容易

引言: 我想檢查 @ 後面的Mail Server是否存在，似乎比較容易

小小補充: 1.用DNS檢查MailServer(同上) 2.用SMTP檢查是否存在該email帳號