Wie Sie ein Recordset, um Outlook-e-Mails an mehrere Empfänger in Microsoft Access zu senden

SPRACHE AUSWÄHLEN SPRACHE AUSWÄHLEN
Artikel-ID: 318881 - Produkte anzeigen, auf die sich dieser Artikel bezieht
Erweiterte: Erfordert Experten Codierung und Interoperabilität sowie Mehrbenutzerfähigkeiten.

Alles erweitern | Alles schließen

Zusammenfassung

Dieser Artikel beschreibt die Automatisierung verwenden, um eine Microsoft Outlook e-Mail-Nachricht an mehrere Empfänger senden, deren Adressen in einer Microsoft Access-Tabelle aufgelistet sind. Diesem Artikel wird darüber hinaus verwendet Access Formularsteuerelemente hinzu den Nachrichtentext, um im Cc-Feld auszufüllen und füllen Sie den Betreff Feld. Dieser Artikel beschreibt darüber hinaus eine programmgesteuerte Methode, mit denen Sie enthalten können e-Mail-Anlagen und zum Auflösen der e-Mail-Adressen für das Outlook-Adressbuch.

Weitere Informationen

Gehen Sie folgendermaßen vor um eine Outlook-Sitzung von Access zu erstellen und ein Recordset verwenden, um e-Mail-Nachrichten an mehrere Empfänger zu senden:
  1. Erstellen Sie eine Textdatei, die Sie als Anlage verwenden können. Speichern Sie die Textdatei als "TestAttachment.txt" im Stammverzeichnis von Laufwerk c:. Beispielsweise können Sie die Textdatei als C:\TestAttachment.txt speichern.
  2. Erstellen Sie eine neue Datenbank mit dem Namen Db1.mdb.
  3. Erstellen Sie eine neue Tabelle mit den folgenden Informationen in db1.mdb:
    Table: tblMailingList
    ----------------------
    Field Name: EmailAddress
    Data Type:  text
    					
  4. Geben Sie mehrere gültige e-Mail-Adressen in EmailAddress Feld.
  5. Erstellen Sie ein Formular mit den folgenden Informationen:
    Form: frmMail
       ----------------------
       RecordSource: tblMailingList
    
       Text box
       ---------------------------
       Name: CCAddress
       ControlSource: Unbound
       Label Caption: CC Address
       
       Text box
       ---------------------------
       Name: Subject
       ControlSource: Unbound
       Label Caption: Subject
    
       Text box
       ---------------------------
       Name: MainText
       ControlSource: Unbound
       Label Caption: Message Body
    					
  6. Öffnen Sie das Formular in der Formularansicht, und geben Sie Beispieldaten in die entsprechenden Felder. Drücken Sie nach jedem Eintrag die EINGABETASTE und anschließend lassen das Formular geöffnet, wenn Sie fertig sind.
  7. Erstellen Sie ein neues Modul. Fügen Sie im folgenden Codebeispiel wird zu dem neuen Modul hinzu.
    Option Compare Database
    Option Explicit
    
    Sub SendMessages(Optional AttachmentPath)
    
      Dim MyDB As Database
      Dim MyRS As Recordset
      Dim objOutlook As Outlook.Application
      Dim objOutlookMsg As Outlook.MailItem
      Dim objOutlookRecip As Outlook.Recipient
      Dim objOutlookAttach As Outlook.Attachment
      Dim TheAddress As String
    
      Set MyDB = CurrentDb
      Set MyRS = MyDB.OpenRecordset("tblMailingList")
      MyRS.MoveFirst
    
      ' Create the Outlook session.
      Set objOutlook = CreateObject("Outlook.Application")
      
      Do Until MyRS.EOF
      ' Create the e-mail message.
      Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
      TheAddress = MyRS![EmailAddress]
    
         With objOutlookMsg
            ' Add the To recipients to the e-mail message.
            Set objOutlookRecip = .Recipients.Add(TheAddress)
            objOutlookRecip.Type = olTo
    
            ' Add the Cc recipients to the e-mail message.
            If (IsNull(Forms!frmMail!CCAddress)) Then
            Else
               Set objOutlookRecip = .Recipients.Add(Forms!frmMail!CCAddress)
               objOutlookRecip.Type = olCC
            End If
       
            ' Set the Subject, the Body, and the Importance of the e-mail message.
            .Subject = Forms!frmMail!Subject
            .Body = Forms!frmMail!MainText
            .Importance = olImportanceHigh  'High importance
            
            'Add the attachment to the e-mail message.
            If Not IsMissing(AttachmentPath) Then
               Set objOutlookAttach = .Attachments.Add(AttachmentPath)
            End If
    
            ' Resolve the name of each Recipient.
            For Each objOutlookRecip In .Recipients
               objOutlookRecip.Resolve
               If Not objOutlookRecip.Resolve Then
                 objOutlookMsg.Display
               End If
            Next
            .Send
          End With
          MyRS.MoveNext
       Loop
       Set objOutlookMsg = Nothing
       Set objOutlook = Nothing
    End Sub
    					
  8. Klicken Sie im Visual Basic-Editor im Menü Extras auf Verweise .
  9. Klicken Sie in der Liste Verfügbare Verweise auf Microsoft Outlook 8.0 Object Library , und klicken Sie dann auf OK .

    Hinweis: Sie müssen die richtigen Microsoft Outlook-Objektbibliothek auswählen. Microsoft Outlook-Objektbibliothek, die Sie auswählen, hängt von der Version von Outlook, die auf Ihrem Computer installiert ist. Klicken Sie beispielsweise, wenn Sie Outlook 2003 auf Ihrem Computer installiert haben, auf Microsoft Outlook 11.0-Objektbibliothek .
  10. Drücken Sie STRG + G, um das Debug-Fenster öffnen.
  11. Geben Sie die e-Mail-Nachricht mit einer Anlage zu senden, den folgenden Befehl in das Debugfenster:
    SendMessages "C:\TestAttachment.txt"
    Drücken Sie die [EINGABETASTE].

    Alternativ dazu, um die e-Mail-Nachricht ohne Anlage zu senden, lassen Sie das Argument beim Aufrufen die Prozedur aus. Geben Sie Folgendes in das Debugfenster:
    SendMessages
    Drücken Sie die [EINGABETASTE].

Informationsquellen

Informationen dazu, wie Sie Automatisierung verwenden, um Outlook steuern finden Sie in den folgenden Artikeln der Microsoft Knowledge Base:
161088Mithilfe der Automatisierung eine Microsoft Outlook-Nachricht senden
160502Mithilfe der Automatisierung zum Hinzufügen von Terminen zu Microsoft Outlook
161012Erstellen Sie ein neues Kontaktelement in Outlook mit der Automatisierung

Eigenschaften

Artikel-ID: 318881 - Geändert am: Montag, 11. Oktober 2004 - Version: 3.4
Die Informationen in diesem Artikel beziehen sich auf:
  • Microsoft Access 97 Standard Edition
  • Microsoft Access 2000 Standard Edition
  • Microsoft Access 2002 Standard Edition
  • Microsoft Office Access 2003
Keywords: 
kbmt kbhowto KB318881 KbMtde
Maschinell übersetzter Artikel
Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen übersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden ständig ergänzt beziehungsweise überarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu können, werden viele Artikel nicht von Menschen, sondern von Übersetzungsprogrammen übersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell übersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdwörtern sowie Fachbegriffen. Microsoft übernimmt keine Gewähr für die sprachliche Qualität oder die technische Richtigkeit der Übersetzungen und ist nicht für Probleme haftbar, die direkt oder indirekt durch Übersetzungsfehler oder die Verwendung der übersetzten Inhalte durch Kunden entstehen könnten.
Den englischen Originalartikel können Sie über folgenden Link abrufen: 318881
Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.

Ihr Feedback an uns

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com