最近要將舊主機的程式要移到其他主機上，測試到發信功能發現信發不出去，後來找到以下的 code ，插入到 send 之前，信就可以成功發出了。   Mail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Mail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "localhost" Mail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Mail.Configuration.Fields.Update