出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[5504] Re:汎用関数とか投函してみませんか？
投稿者：ビギナーズラックさん 2005/12/03 20:54:26
> ASPでいろいろサイト作ってると毎度つれて歩いてる汎用Functionとかたまってくるじゃないですか？
> そんなの投函してみませんか？
> 他のプロの方がどんなの持ち歩いてるか興味あります。
>

とりあえず超基本のメール送信モジュール


Function MailSendCDO(logfile,smtp,strTo,strFrom,strSub,strMsg)
On error Resume Next

Set objEmail = CreateObject("CDO.Message")
With objEmail
.From = "<" & strfrom & ">"
.To = "<" & strto & ">"
.Subject = strSub
.Textbody = strMsg
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =smtp
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
.Send
End With
MailSendCDO=Err.Number
Set objEmail=Nothing

End Function

BASP21で送信しているサイトって結構あると思いますが
安定度ではCDOで送信する方が遙かに上です。(経験済み)
汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/11/30 12:59:52] [5496]
　 Re:汎用関数とか投函してみませんか？ 　 YasNet（管理人）さん [2005/12/01 12:08:01] [5498]
　 　 Re:汎用関数とか投函してみませんか？ 　 YasNet（管理人）さん [2005/12/03 17:52:48] [5503]
　 　 　 Re:汎用関数とか投函してみませんか？ 　 YasNet（管理人）さん [2005/12/30 18:14:07] [5563]
　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/03 20:54:26] [5504]
　 　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/15 1:39:51] [5524]
　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/03 20:57:01] [5505]
　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/03 21:05:19] [5506]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ