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
우리카지노 says:
우리카지노
2021/04/30, 13:59W88 says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/278 […]
2021/06/15, 19:12대밤 says:
… [Trackback]
[…] There you can find 78083 additional Information on that Topic: dragon-ark.com/archives/278 […]
2021/06/26, 17:18microsoft exchange online plan 2 says:
… [Trackback]
[…] There you will find 77053 additional Information on that Topic: dragon-ark.com/archives/278 […]
2021/06/26, 22:16exchange hosting fiyat says:
… [Trackback]
[…] Read More to that Topic: dragon-ark.com/archives/278 […]
2021/06/27, 06:14bulut depolama,bulut,yedekleme,ücretsiz bulut hizmeti,en iyi bulut şirketi,en iyi bulut firması,bulut depolama fiyatı,en ucuz bulut depolama,en iyi bulut depolama hangisi,en iyi bulut depolama,bulut arşivleme sistemi,online yedekleme,bulut yedekleme says:
… [Trackback]
[…] Find More to that Topic: dragon-ark.com/archives/278 […]
2021/06/27, 08:39microsoft exchange online plan 1 says:
… [Trackback]
[…] There you can find 6793 more Info on that Topic: dragon-ark.com/archives/278 […]
2021/06/27, 11:20lenovo sunucu teknik servis says:
… [Trackback]
[…] Read More here to that Topic: dragon-ark.com/archives/278 […]
2021/06/28, 20:56bilişim danışmanlık firmaları says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/278 […]
2021/07/03, 14:14HP Servis says:
… [Trackback]
[…] Read More to that Topic: dragon-ark.com/archives/278 […]
2021/07/03, 18:44world market link says:
… [Trackback]
[…] Find More to that Topic: dragon-ark.com/archives/278 […]
2021/07/03, 21:41DevOps automation consulting says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/278 […]
2021/07/04, 20:03ถ้วยฟอยล์ says:
… [Trackback]
[…] Read More Info here to that Topic: dragon-ark.com/archives/278 […]
2021/07/05, 21:45sunucu teknik destek says:
… [Trackback]
[…] Read More on on that Topic: dragon-ark.com/archives/278 […]
2021/07/12, 09:19Supercritical CO2 Extraction Machine says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/278 […]
2021/07/16, 06:00Sveriges pass says:
… [Trackback]
[…] Read More to that Topic: dragon-ark.com/archives/278 […]
2021/07/16, 10:41TKO Extracts is a recreational cannabis & Medical Marijuana Online Dispensary says:
… [Trackback]
[…] Find More Info here to that Topic: dragon-ark.com/archives/278 […]
2021/10/20, 16:17Buy Barrett Firearms Online says:
… [Trackback]
[…] Find More Information here to that Topic: dragon-ark.com/archives/278 […]
2021/11/13, 06:16track 2 dump says:
… [Trackback]
[…] There you can find 59585 additional Information to that Topic: dragon-ark.com/archives/278 […]
2021/11/15, 16:58สล็อตเว็บตรง says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/278 […]
2021/12/13, 09:57Buy Firearms Online says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/278 […]
2021/12/29, 01:14relx says:
… [Trackback]
[…] Find More Info here to that Topic: dragon-ark.com/archives/278 […]
2022/01/04, 09:56original site says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/278 […]
2022/01/06, 19:402beetle says:
3lettuce
2022/01/08, 11:19gay bear free webcam chat rooms says:
gay men chat rooms https://bjsgaychatroom.info/
2022/01/14, 21:31ther gay dating game says:
gay dating game orgy https://gaypridee.com/
2022/01/14, 23:34good chat to meet gay men are bi says:
miami downtown chat gay https://gaytgpost.com/
2022/01/15, 01:48chat gay miami says:
gay wire chat looking https://gay-buddies.com/
2022/01/15, 06:34liberty slots casino says:
grand win casino slots https://2-free-slots.com/
2022/01/29, 03:57play slots online says:
sexy girl slots https://candylandslotmachine.com/
2022/01/29, 09:08princess bride slots says:
super high limit slots https://pennyslotmachines.org/
2022/01/29, 12:06spooky slots says:
bio dr. jorgen slots https://slotmachinesworld.com/
2022/01/29, 16:01geisha slots on pc says:
slim slots https://slotmachinesforum.net/
2022/02/04, 03:13add slots game girls says:
free coins hot shot slots https://slot-machine-sale.com/
2022/02/04, 07:32play ginger wild slots says:
slots pictures https://beat-slot-machines.com/
2022/02/04, 08:43all slots casino says:
all slots casino https://download-slot-machines.com/
2022/02/04, 11:32d says:
battle slots download https://411slotmachine.com/
2022/02/04, 15:10free casino slots games says:
free bonus slots https://www-slotmachines.com/
2022/02/04, 19:43free slots to play says:
deep dish western slots https://slotmachinegameinfo.com/
2022/02/05, 00:08kardinal stick says:
… [Trackback]
[…] Info on that Topic: dragon-ark.com/archives/278 […]
2022/02/09, 10:21dissertation outline example says:
dissertation dedication https://buydissertationhelp.com/
2022/02/11, 03:26uk dissertation writing help online says:
dissertation chapters https://dissertationwriting-service.com/
2022/02/11, 23:19best dissertation editing services says:
dissertation writing support group https://help-with-dissertations.com/
2022/02/12, 04:57history dissertation says:
help writing my dissertation https://mydissertationwritinghelp.com/
2022/02/12, 09:20art dissertation help says:
economics dissertation help https://dissertations-writing.org/
2022/02/12, 10:51dissertation for masters says:
proposal and dissertation help 2000 words https://helpon-doctoral-dissertations.net/
2022/02/12, 14:13ã€WSH】メールをé€ä¿¡ã™ã‚‹ | Dragon-Ark says:
Garfield Pergerson
WSHを利用ã—ã¦ãƒ¡ãƒ¼ãƒ«ã‚’é€ä¿¡ã™ã‚‹ä¾‹ã§ã™ã€‚ 今時ã®ãƒ¡ãƒ¼ãƒ«é€ä¿¡ã¯SMTP Authãªã©ãŒå®Ÿè£…ã•ã‚Œã¦ã„ã‚‹…
2022/04/02, 03:04ã€WSH】メールをé€ä¿¡ã™ã‚‹ | Dragon-Ark says:
Malvina Larrosa
WSHを利用ã—ã¦ãƒ¡ãƒ¼ãƒ«ã‚’é€ä¿¡ã™ã‚‹ä¾‹ã§ã™ã€‚ 今時ã®ãƒ¡ãƒ¼ãƒ«é€ä¿¡ã¯SMTP Authãªã©ãŒå®Ÿè£…ã•ã‚Œã¦ã„ã‚‹…
2022/04/03, 10:05ã€WSH】メールをé€ä¿¡ã™ã‚‹ | Dragon-Ark says:
Layne Gurner
WSHを利用ã—ã¦ãƒ¡ãƒ¼ãƒ«ã‚’é€ä¿¡ã™ã‚‹ä¾‹ã§ã™ã€‚ 今時ã®ãƒ¡ãƒ¼ãƒ«é€ä¿¡ã¯SMTP Authãªã©ãŒå®Ÿè£…ã•ã‚Œã¦ã„ã‚‹…
2022/04/23, 23:10ã€WSH】メールをé€ä¿¡ã™ã‚‹ | Dragon-Ark says:
Vincenza Mcsween
WSHを利用ã—ã¦ãƒ¡ãƒ¼ãƒ«ã‚’é€ä¿¡ã™ã‚‹ä¾‹ã§ã™ã€‚ 今時ã®ãƒ¡ãƒ¼ãƒ«é€ä¿¡ã¯SMTP Authãªã©ãŒå®Ÿè£…ã•ã‚Œã¦ã„ã‚‹…
2022/04/25, 07:43