ms-access - MS Access 2003 を使用した Outlook の操作 - VBA

Question

MS Access のテーブルから電子メールアドレスのリストを取得し、それぞれにテストメールを送信する次のプログラムを作成しました。コードは次のとおりです。

'Get data back from field birth date
    Set fld = rcdSet.Fields("Email Address")

    'Subject
    olMailItem.Subject = "Mailing List Test"

    'Loop through the records
    For i = 0 To intNumRecords
        'Recipient/s
        olMailItem.To = fld.Value

        'Body of email
        olMailItem.Body = strBodyText

        'Automatically send the email
        olMailItem.Send

       'Reset email item otherwise it won't work
        Set olMailItem = olFolder.Items.Add("IPM.Note")

        'Move to the next record
        rcdSet.MoveNext
    Next

はい、レコードセットを開きましたが、上記のコードを含めていません。だからここに私の質問があります：

上記の私のアプローチは正しいですか？ループ内でをリセットする必要がありました。olMailItemそうしないと、が返されType Errorます。複数のメールを送信するためのより良い方法はありますか?
何が起こるかを確認するために、無効な電子メールを入力しました。別のType Error. とにかくバウンスバックを検出する方法はありますか (メールの見通しがあなたに送信し、それが悪いアドレスであることを通知します) メールを送信しますImmediate Window(この時点での開発目的のため)

ありがとう

注 - メール項目の宣言を追加しました

'Create Outlook object
Dim olApp As Outlook.Application

'Namespace
Dim olNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder

'Create a reference to the email item you will use to send the email
Dim olMailItem As Outlook.MailItem

Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")

Set olFolder = olNS.GetDefaultFolder(olFolderInbox)
Set olMailItem = olFolder.Items.Add("IPM.Note")

forループでolMailItemを再設定しない.Toと、プログラムの一部でエラーが発生します-前述のType Error

ms-access - MS Access 2003 を使用した Outlook の操作 - VBA

1 に答える 1

Related

Reference