Visual Basic Application Dokumentation

In dieser Category werden VBA Anwendungen dokumentiert.

VBA Anwendung E-Mail über Excel versenden

In diesem Beispiel wird beschrieben, wie ein Outlook-Mail mit Zuhilfenahme von Excel geschrieben und versendet wird.
Die einzelnen Felder des Outlook-Objekts werden aus Zellen von Excel genommen (Betreff, Text, Signatur...)

Ein vorgegebener Anhang wird automatisch angefügt.

Beispiel für Code Highlight

Um die Liste der Pygments Lexer (z.B. vbnet) zu sehen, muss der Kommentar der folgenden Zeile im Rohtext entfernt werden. Dazu muss das Makro HighlighterList.py in moinmoin installiert sein.

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Option Explicit

Sub Mail_senden()
Sheets("Adressen").Select

'    Mail schreiben und versenden
'On Error GoTo Ende
Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
        tmpBody = .BodyFormat
        .BodyFormat = 3 ' Hier wird das Format der E-Mail festgelegt
        '.to = "e-mail@adresse.de"
        .To = Adresse1  'aus Reiter Adessen - Primaeradressen
        .CC = Adresse2  'aus Reiter Adessen - Sekundaeradressen
        .Subject = Betreff
        .Body = Text + Chr(13) + Chr(13) + Gruss + Chr(13)
        .ReadReceiptRequested = False
        'Dateien anhaengen
        .Attachments.Add (Anhang1)
        '.Attachments.Add (Anhang2)
MsgBox "Wenn die Mail OK ist bitte den Senden-Button drücken"
        .Display                'Aufruf Outlook
''        'durch das "druecken" der Entertaste wird die Nachricht versand
''        Application.Wait (Now + TimeValue("00:00:02")) 'Warte 2 Sekunden
''        SendKeys ("^{ENTER}")   'Verschicken der Nachricht
''        Application.Wait (Now + TimeValue("00:00:05")) 'Warte 5 Sekunden
        '.Send      '<======= senden Empfaenger
        '.BodyFormat = tmpBody
    End With
Set olApp = Nothing

Ende:
Sheets("tmp").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Sheets("Mail").Select
Range("A1").Select
Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
        .BodyFormat = tmpBody
    End With
Set olApp = Nothing
End Sub

Liste der Seiten in dieser category:

... -- RudolfReuter 2012-01-22 16:31:03

Go back to CategoryVBADoku or StartSeite ; KontaktEmail (ContactEmail)

VBADokuMailSenden (last edited 2012-02-19 13:21:49 by dslb-084-058-188-058)