5

VBA を使用して無人で Microsoft Access から電子メールを送信したいと考えています。組み込みメソッド「SendObject」は、セキュリティ プロンプトを意味する MAPI と、構成された Outlook のようなものを使用することを理解しています。タスク スケジューラを使用してさまざまなレポートを開始したいので、MAPI から離れて、他のソリューションを使用したいと考えています。発送申請ではなく、あくまで自社で。アイデア？

4

5 に答える 5

5

CDO と gmail で動作するテスト コードを次に示します。

Sub mtest()

Dim cdoConfig
Dim msgOne

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "gmailname"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpw"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Update
End With

Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
msgOne.To = "target@target.com"
msgOne.From = "I@dontThinkThisIsUsed.com"
msgOne.Subject = "Test email"
msgOne.TextBody = "It works just fine"
msgOne.send
End Sub
于 2009-04-21T21:03:35.630 に答える
1

メールを送信できるSMTPサーバーが必要です。次に、CDOメッセージオブジェクトを使用する必要があります。

于 2009-04-20T19:36:19.967 に答える
1

Tony Toews のAccess EMail FAQが便利です。

于 2009-04-20T20:23:59.993 に答える
1

私はこのようにしていますが、動作させるには Outlook がインストールされている必要があります。


Sub btnSendEmail_Click()
    Dim OutApp As Object
    Dim OutMail As Object

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon

    strBody = "<html><head></head><body>"
    strBody = strBody & "Your message goes here"
    strBody = strBody & "</body></html>"

    Set OutMail = OutApp.CreateItem(0)

    OutMail.To = "name@example.com"
    OutMail.BCC = "bcc@example.com"
    OutMail.Subject = "Test message"
    OutMail.HTMLBody = strBody


    OutMail.Send  'Send | Display
    Set OutMail = Nothing
End Sub
于 2009-04-21T21:13:25.857 に答える
1

Outlook Redemption は無料で、非常に広く使用されています: http://www.dimastr.com/redemption/

元の Outlook オブジェクト モデルに非常に近いため、学習曲線は簡単です :)

于 2009-06-11T06:25:24.550 に答える