«
»

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

This entry was posted by admin on 2009/05/02 at 00:37 under Windows, WSH. Tagged , , . You can leave a response, or trackback from your own site. Follow any responses to this entry through the RSS 2.0 feed.

60 Comments

  1. 우리카지노 says:

    우리카지노

    2021/04/30, 13:59

  2. W88 says:

    … [Trackback]

    […] Find More on that Topic: dragon-ark.com/archives/278 […]

    2021/06/15, 19:12

  3. 대밤 says:

    … [Trackback]

    […] There you can find 78083 additional Information on that Topic: dragon-ark.com/archives/278 […]

    2021/06/26, 17:18

  4. microsoft 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:16

  5. exchange hosting fiyat says:

    … [Trackback]

    […] Read More to that Topic: dragon-ark.com/archives/278 […]

    2021/06/27, 06:14

  7. microsoft 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:20

  8. lenovo sunucu teknik servis says:

    … [Trackback]

    […] Read More here to that Topic: dragon-ark.com/archives/278 […]

    2021/06/28, 20:56

  9. bilişim danışmanlık firmaları says:

    … [Trackback]

    […] Read More on that Topic: dragon-ark.com/archives/278 […]

    2021/07/03, 14:14

  10. HP Servis says:

    … [Trackback]

    […] Read More to that Topic: dragon-ark.com/archives/278 […]

    2021/07/03, 18:44

  11. world market link says:

    … [Trackback]

    […] Find More to that Topic: dragon-ark.com/archives/278 […]

    2021/07/03, 21:41

  12. DevOps automation consulting says:

    … [Trackback]

    […] Find More on that Topic: dragon-ark.com/archives/278 […]

    2021/07/04, 20:03

  13. ถ้วยฟอยล์ says:

    … [Trackback]

    […] Read More Info here to that Topic: dragon-ark.com/archives/278 […]

    2021/07/05, 21:45

  14. sunucu teknik destek says:

    … [Trackback]

    […] Read More on on that Topic: dragon-ark.com/archives/278 […]

    2021/07/12, 09:19

  15. Supercritical CO2 Extraction Machine says:

    … [Trackback]

    […] Read More on that Topic: dragon-ark.com/archives/278 […]

    2021/07/16, 06:00

  16. Sveriges pass says:

    … [Trackback]

    […] Read More to that Topic: dragon-ark.com/archives/278 […]

    2021/07/16, 10:41

  17. TKO 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:17

  18. Buy Barrett Firearms Online says:

    … [Trackback]

    […] Find More Information here to that Topic: dragon-ark.com/archives/278 […]

    2021/11/13, 06:16

  19. track 2 dump says:

    … [Trackback]

    […] There you can find 59585 additional Information to that Topic: dragon-ark.com/archives/278 […]

    2021/11/15, 16:58

  20. สล็อตเว็บตรง says:

    … [Trackback]

    […] Read More on that Topic: dragon-ark.com/archives/278 […]

    2021/12/13, 09:57

  21. Buy Firearms Online says:

    … [Trackback]

    […] Find More on that Topic: dragon-ark.com/archives/278 […]

    2021/12/29, 01:14

  22. relx says:

    … [Trackback]

    […] Find More Info here to that Topic: dragon-ark.com/archives/278 […]

    2022/01/04, 09:56

  23. original site says:

    … [Trackback]

    […] Information to that Topic: dragon-ark.com/archives/278 […]

    2022/01/06, 19:40

  36. d says:

    battle slots download https://411slotmachine.com/

    2022/02/04, 15:10

  39. kardinal stick says:

    … [Trackback]

    […] Info on that Topic: dragon-ark.com/archives/278 […]

    2022/02/09, 10:21

  46. 【WSH】メールを送信する | Dragon-Ark says:

    Garfield Pergerson

    WSHを利用してメールを送信する例です。 今時のメール送信はSMTP Authなどが実装されている…

    2022/04/02, 03:04

  47. 【WSH】メールを送信する | Dragon-Ark says:

    Malvina Larrosa

    WSHを利用してメールを送信する例です。 今時のメール送信はSMTP Authなどが実装されている…

    2022/04/03, 10:05

  48. 【WSH】メールを送信する | Dragon-Ark says:

    Layne Gurner

    WSHを利用してメールを送信する例です。 今時のメール送信はSMTP Authなどが実装されている…

    2022/04/23, 23:10

  49. 【WSH】メールを送信する | Dragon-Ark says:

    Vincenza Mcsween

    WSHを利用してメールを送信する例です。 今時のメール送信はSMTP Authなどが実装されている…

    2022/04/25, 07:43

  50. 【WSH】メールを送信する | Dragon-Ark says:

    Timothy Kudron

    WSHを利用してメールを送信する例です。 今時のメール送信はSMTP Authなどが実装されている…

    2022/07/01, 05:36

  51. 3impious says:

    3unconstitutional

    2022/09/02, 21:44

Leave a Reply

You must be logged in to post a comment.