0

フォームの送信が成功したら、申請者に簡単なメールを送信する必要があります。それを行うための vb のコードは何ですか? 私はこれを試してきました..

function email()
    Set mailObj=CreateObject("CDO.Message")
        mailObj.Subject="Hello"
        mailObj.From="abc@xyz.com"
        mailObj.To="123@456.com"
        mailObj.TextBody="text"
        mailObj.Send
    set mailObj=nothing
end function

コードに何か問題がありますか?親切に修正してください..

4

1 に答える 1

3

次のようなものを使用します。

 Set objEmail = CreateObject("CDO.Message") 
 objEmail.From = "fromsomeone@company.com"
 objEmail.To = "someone@company.com"

 objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
     "your.smtpserver.here"
 objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objEmail.Configuration.Fields.Update

 objEmail.TextBody = "The body of the email"
 objEmail.Subject = "The subject"

 objEmail.Send
于 2012-10-16T08:22:33.117 に答える