Mithilfe der Automatisierung eine Microsoft Outlook-Nachricht senden

SPRACHE AUSWÄHLEN SPRACHE AUSWÄHLEN
Artikel-ID: 161088 - 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 veranschaulicht das Verwenden der Automatisierung zum Erstellen und senden Sie eine Microsoft Outlook-Nachricht in Microsoft Access 97.

Dieser Artikel setzt voraus, dass Sie mit Visual Basic für Applikationen und mit dem Erstellen von Microsoft Access-Anwendungen mit Hilfe der in Microsoft Access enthaltenen Programmiertools vertraut sind. Weitere Informationen zu Visual Basic für Applikationen finden Sie im Handbuch "Building Applications with Microsoft Access 97".

Weitere Informationen über Automatisierung eine Microsoft Exchange-Nachricht senden finden Sie in der folgenden Artikel der Microsoft Knowledge Base:
153311Mithilfe der Automatisierung eine Microsoft Exchange-Nachricht senden

Weitere Informationen

Hinweis: Der folgende Code funktioniert möglicherweise nicht richtig, wenn Sie das Outlook-Update für die E-Mail-Sicherheit installiert haben. Weitere Informationen zu diesem Update finden Sie, entsprechend Ihrer Outlook-Version, in einem der folgenden Artikel der Microsoft Knowledge Base:
262631OL2000: Informationen zum Outlook E-Mail Security Update
262617OL98: Informationen zum Outlook E-Mail-Sicherheitsupdate
Die SendObject-Methode bietet eine Möglichkeit eine MAPI e-Mail-Nachricht programmgesteuert in Microsoft Access zu senden. Zum Abschließen der e-Mail-Funktionen, wie die Möglichkeit, eine externe Datei anfügen oder Festlegen der Wichtigkeit einer Nachricht die SendObject-Methode nicht Sie geben jedoch zugreifen. Das folgende Beispiel verwendet Automatisierung, um erstellen und Senden einer e-Mail-Nachricht, mit denen Sie viele Features in Microsoft Outlook nutzen, die nicht mit der SendObject-Methode verfügbar sind.

Es gibt sechs Hauptschritte Wenn Sie Automatisierung, verwenden um eine Microsoft Outlook e-Mail-Nachricht zu senden:

  • Initialisieren Sie die Outlook-Sitzung
  • Erstellen Sie eine neue Nachricht
  • Die Empfänger (an, CC und BCC) hinzufügen und ihre Namen auflösen
  • Gültige Eigenschaften festlegen, wie z. B. Subject, Body und Priorität
  • Hinzufügen von Anlagen (falls vorhanden)
  • Anzeige/Senden der Nachricht
Eine Microsoft Outlook e-Mail-Nachricht programmgesteuert zu senden, gehen Sie folgendermaßen vor:

  1. Erstellen Sie eine Beispiel-Textdatei mit dem Namen "Kunden.txt" in c:\Eigene Dateien Ordner.
  2. Starten Sie Microsoft Access, und öffnen Sie die Beispieldatenbank "Nordwind.mdb".
  3. Erstellen Sie ein Modul und geben Sie die folgende Zeile im Deklarationsbereich ein, falls sie dort nicht bereits vorhanden ist:
    Option Explicit
  4. Klicken Sie im Menü Extras auf Verweise.
  5. Klicken Sie im Feld Verweise auf Outlook 8.0-Objektmodell und dann auf OK.

    Hinweis: Wenn Outlook 8.0-Objektmodell nicht im Feld Verfügbare Verweise angezeigt wird, durchsuchen die Festplatte für die Datei Msoutl8.olb. Wenn Sie diese Datei nicht finden können, müssen Sie das Microsoft Outlook Setup-Programm installieren, bevor Sie mit diesem Beispiel fortfahren ausführen.
  6. Geben Sie die folgende Prozedur in das neue Modul:
          Sub SendMessage(DisplayMsg As Boolean, Optional AttachmentPath)
              Dim objOutlook As Outlook.Application
              Dim objOutlookMsg As Outlook.MailItem
              Dim objOutlookRecip As Outlook.Recipient
              Dim objOutlookAttach As Outlook.Attachment
    
              ' Create the Outlook session.
              Set objOutlook = CreateObject("Outlook.Application")
    
              ' Create the message.
              Set objOutlookMsg  = objOutlook.CreateItem(olMailItem)
    
              With objOutlookMsg
                  ' Add the To recipient(s) to the message.
                  Set objOutlookRecip = .Recipients.Add("Nancy Davolio")
                  objOutlookRecip.Type = olTo
    
                  ' Add the CC recipient(s) to the message.
                  Set objOutlookRecip = .Recipients.Add("Michael Suyama")
                  objOutlookRecip.Type = olCC
    
                 ' Add the BCC recipient(s) to the message.
                  Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
                  objOutlookRecip.Type = olBCC
    
                 ' Set the Subject, Body, and Importance of the message.
                 .Subject = "This is an Automation test with Microsoft Outlook"
                 .Body = "This is the body of the message." &vbCrLf & vbCrLf
                 .Importance = olImportanceHigh  'High importance
    
                 ' Add attachments to the message.
                 If Not IsMissing(AttachmentPath) Then
                     Set objOutlookAttach = .Attachments.Add(AttachmentPath)
                 End If
    
                 ' Resolve each Recipient's name.
                 For Each ObjOutlookRecip In .Recipients
                     objOutlookRecip.Resolve
                 Next
    
                 ' Should we display the message before sending?
                 If DisplayMsg Then
                     .Display
                 Else
                     .Save
                     .Send
                 End If
              End With
              Set objOutlook = Nothing
          End Sub
    						
  7. Geben Sie folgende Zeile in das Debugfenster ein und drücken Sie die Eingabetaste, um die Prozedur zu testen.
    SendMessage True, "Pfad c:\Eigene Dateien\Kunden. txt"
    Beachten Sie, dass eine neue Nachricht mit einer Anlage in Microsoft Outlook angezeigt wird.

    Um die Nachricht senden, ohne es in Microsoft Outlook anzuzeigen, rufen Sie die Prozedur mit einen False-Wert für das erste Argument:
    SendMessage False, "Pfad c:\Eigene Dateien\Kunden. txt"
    Um die Nachricht ohne Angabe einer Anlage zu senden, werden lassen Sie das zweite Argument beim Aufrufen der Prozedur aus.
    SendMessage-True

Informationsquellen

Weitere Informationen zur Verwendung der Automatisierung in Microsoft Access Durchsuchen Sie der Hilfe-Index nach Automatisierung , oder Fragen Sie den Microsoft Access 97 Office-Assistenten.

Weitere Informationen zur Steuerung von Microsoft Outlook mithilfe der Automatisierung finden Sie in die folgenden Artikeln der Microsoft Knowledge Base:
160502ACC: Mithilfe der Automatisierung zum Hinzufügen von Terminen zu Microsoft Outlook

161012VBA: Wie erstellen ein neuen Elements Kontakt in Outlook mit der Automatisierung

Eigenschaften

Artikel-ID: 161088 - Geändert am: Freitag, 19. Januar 2007 - Version: 3.3
Die Informationen in diesem Artikel beziehen sich auf:
  • Microsoft Access 97 Standard Edition
Keywords: 
kbmt kbhowto kbinterop KB161088 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: 161088
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.
Disclaimer zu nicht mehr gepflegten KB-Inhalten
Dieser Artikel wurde für Produkte verfasst, für die Microsoft keinen Support mehr anbietet. Der Artikel wird deshalb in der vorliegenden Form bereitgestellt und nicht mehr weiter aktualisiert.

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