WSHを利用してメールを送信する例です。
今時のメール送信はSMTP Authなどが実装されている例が多いのですが、
今回の例は、SMTP Authには対応していません。(別途、紹介します)
パラメータは以下の通り。
Send_Msg “SMTPモード”,”SMTPサーバ”,”SMTPポート”,”送信元メールアドレス”,”宛先メールアドレス”,”CC宛先”,”BCC宛先”,”件名”,”本文”
Dim STR_SmtpHost Dim STR_SmtpPort Dim STR_MsgFrom Dim STR_MsgTo Dim STR_MsgCc Dim STR_MsgBcc Dim STR_MsgSubject Dim STR_MsgBody STR_SmtpHost = "xxx" STR_SmtpPort = "xx" STR_MsgFrom = "xxx@xxx.com" STR_MsgTo = "xxx@yyy.com" STR_MsgCc = "" STR_MsgBcc = "" STR_MsgSubject = "aaaa" STR_MsgBody = "bbb" Call Send_Msg(STR_SmtpHost, STR_SmtpPort, STR_MsgFrom, STR_MsgTo, STR_MsgCc, STR_MsgBcc, STR_MsgSubject, STR_MsgBody) Function Send_Msg(STR_SmtpHost, STR_SmtpPort, STR_MsgFrom, STR_MsgTo, STR_MsgCc, STR_MsgBcc, STR_MsgSubject, STR_MsgBody) Set OBJ_EMail = CreateObject("CDO.Message") OBJ_EMail.From = STR_MsgFrom OBJ_EMail.Subject = STR_MsgSubject OBJ_EMail.TextBody = STR_MsgBody OBJ_EMail.To = STR_MsgTo OBJ_EMail.Cc = STR_MsgCc OBJ_EMail.Bcc = STR_MsgBcc OBJ_EMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 OBJ_EMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = STR_SmtpHost OBJ_EMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = STR_SmtpPort OBJ_EMail.Configuration.Fields.Update OBJ_EMail.Send Set OBJ_EMail = Nothing End Function
ã€WSH】メールをé€ä¿¡ã™ã‚‹ | Dragon-Ark says:
Timothy Kudron
WSHを利用ã—ã¦ãƒ¡ãƒ¼ãƒ«ã‚’é€ä¿¡ã™ã‚‹ä¾‹ã§ã™ã€‚ 今時ã®ãƒ¡ãƒ¼ãƒ«é€ä¿¡ã¯SMTP Authãªã©ãŒå®Ÿè£…ã•ã‚Œã¦ã„ã‚‹…
2022/07/01, 05:363impious says:
3unconstitutional
2022/09/02, 21:44gay and bi male text chat says:
free gay radom web cam chat https://newgaychat.com/
2022/09/03, 05:55video boy randon gay chat says:
gay chat rooms columbia sc https://gaychatcams.net/
2022/09/03, 13:07online gay chat rooms says:
ierracial gay chat rooms https://gay-live-chat.net/
2022/09/03, 22:17indian gay chat says:
gay pnp chat free https://chatcongays.com/
2022/09/04, 01:21free gay chat nrooms says:
chat gay almeria https://gayphillychat.com/
2022/09/04, 08:08gay connect chat says:
black bottom gay chat room https://gaychatnorules.com/
2022/09/04, 14:12free gay chat fcn free chat network says:
gay chat roulette chat https://gaymusclechatrooms.com/
2022/09/04, 17:38ierracial gay chat rooms says:
teen gay dick snap chat https://free-gay-sex-chat.com/
2022/09/04, 23:52gay male video chat free says:
gay chat aveneu https://gayinteracialchat.com/
2022/09/05, 05:13