10.1 eMail mit Outlook versenden

Folgende Calls werden benötigt:

1. Outlook öffnen


		Format: Call CreateOutlook using status.

Stellt die Verbindung zu Outlook her und stellt den Status der Operation im Feld status ab.

2. eMail erstellen


		Format: Call CreateMail using status adresse betreff mailinhalt

Erzeugt ein eMail, das noch nicht versendet wird. Der Status der Operation wird in dem Feld status abgestellt.adresse ist die eMailadresse des Empfängers.

3. Zusätzliche Empfänger


		Format: Call Recipient using status adresse typ

Um zusätzliche Empfänger für das eMail festzulegen, kann dieser Call verwendet werden. Zulässige Inhalt für das Feldtyp sind "bcc","cc" und "to".

Der Call kann mehrfach verwendet werden.

4. Anhänge


		Format: Call Attachment using status [pfad ...]

Diesem Call wird nur der Pfad der Datei übergeben die als Anhang für das eMail verwendet werden soll.

Enthält das Feld pfad keinen Device-Specifier, wie z.B. C: wird der Pfad relativ zur aktuellen Directory des Programms verwendet.

Es können mehr als eine Datei in einem Aufruf angegeben werden.

Der Call kann auch mehrfach aufgerufen werden.

5. eMail versenden


		Format: Call SendMail using status.

Versendet das erstellte eMail und gibt den Status der Operation im Feld status zurück.

6. Outlook schließen


		Format: Call CloseOutlook.

Schließt Outlook nach dem alle eMails versendet wurden.

Beispiel: toutlook.cob

      *c32 %;slink toutlook
       id division.
       data division.
       working-storage section.
       01 res           pic 9(10).
       procedure division.


      *
      *   Dieses Programm verschickt emails mit Hilfe von Outlook
      *   
      *   Outlook initialisieren
      *         
        call createoutlook using res.


        if res not = 0 display 'Fehler CreateOutlook - Status ' res
                       stop run.


      *
      * Mail erzeugen:
      * Call createmail using Status Adresse Betreff Mailinhalt
      * 


       call createmail using res 'acc@trictan.dyndns.org' 
                  'Test' 'Hallo'.
       if res not = 0 display 'Fehler CreateMail- Status: ' res
                       stop run.


      *
      *    Anschließend können noch weitere Adressen hinzugefügt werden:
      *    call recipient using Status Adresse Typ
      *    Zulässige Typen sind: cc, bcc und to
      *    Dieser Call kann mehrfach ausgeführt werden
      *    
       call recipient using res 'acccompu@aol.com' 'cc'.
      *
      *    Anhänge können mit 
      *    call attachment using status pfadname [pfadname2 ...]
      *    hinzugefügt werden.
      *    Ist der Pfad relativ, dann bezieht er sich auf die
      *    Directory in der das Programm ausgeführt wird
      *    Dieser Call kann auch mehrfach ausgeführt werden.    


       call attachment using  res 'toutlook.cob'.
        if res not = 0 display 'Fehler Attachment - Status: ' res
                       stop run.
      *
      * Mail abschicken
      *        
       call sendmail using res.
       if res not = 0 display 'Fehler SendMail - Status: ' res
                       stop run.


      *
      * Outlook schließen
      * 
       call closeoutlook.

Zurück zu Acc-Cobol: Zugriff auf Excel - Farben, Rahmen und Formatierung

Hoch zu Acc-Cobol: eMails versenden