E-Mail über Outlook versenden

    • Allgemein

      E-Mail über Outlook versenden

      Hier ein Modul, das eine E-Mail über Outlook versendet. Dieses Modul kann in allen Office-Programmen (Word, Excel, PowerPoint, Access, Project, Visio) genutzt werden.

      Visual Basic-Quellcode

      1. ​Option Explicit
      2. Option Private Module
      4. Public olApp As Outlook.Application
      6. ' Der Verweis auf Outlook muss gesetzt sein
      8. ' strTo - Empfängeradresse ggf. durch Semikolon getrennt
      9. ' Subject - Betreff
      10. ' Body - Der Text der E-Mail, falls HTML mit HTML-Formatierung für day Layout
      11. ' CC - Empfängeradresse in CC ggf. durch Semikolon getrennt
      12. ' BCC - Empfängeradresse in BCC ggf. durch Semikolon getrennt
      13. ' Importance - Wichtigkeit 1- normal, 2 - hoch
      14. ' HTML - True E-Mail mit Outlook-Signatur, False E-Mail mit Nur Text
      15. ' Display - True zeigt die E-Mail an, False versendet die E-Mail direkt
      16. ' Attachements - Array mit für Anlagen, die Datei muss mit dem kompletten Pfad angegebnen werden
      17. Public Sub SendEmail(ByVal strTo As String, ByVal Subject As String, ByVal Body As String, _
      18. Optional ByVal CC As String = "", Optional ByVal Bcc As String = "", Optional ByVal Importance As Integer = 1, _
      19. Optional HTML As Boolean = False, Optional Display As Boolean = False, Optional ByVal Attachments As Variant)
      21. On Error GoTo ErrHandling
      23. Dim olMail As Outlook.MailItem
      24. Dim olOldbody As String
      26. If olApp Is Nothing Then
      27. Set olApp = GetObject(, "Outlook.Application")
      28. End If
      30. Set olMail = olApp.CreateItem(olMailItem)
      32. With olMail
      33. .To = strTo
      34. .CC = CC
      35. .Bcc = Bcc
      36. .Subject = Subject
      37. .Importance = Importance
      39. If isArrayEmpty(Attachments) = False Then
      41. Dim strFile As Variant
      43. For Each strFile In Attachments
      45. If FileExists(strFile) = True Then
      46. .Attachments.Add strFile
      47. Else
      48. Dim intPos As Integer
      49. Dim part() As String
      50. str = Replace(strFile, "/", "\")
      51. part = Split(strFile, "\")
      52. MsgBox "Die Datei '" & part(UBound(part)) & "' konnte nicht gefunden werden."
      53. End If
      55. Next
      57. End If
      59. 'HTML ergibt eine E-Mail mit Outlook-Signatur
      60. If HTML Then
      61. olOldbody = .HTMLBody
      62. .HTMLBody = "<html><body>" & Body & olOldbody
      63. Else
      64. .Body = Body
      65. End If
      67. If Display Then
      68. .Display
      69. .GetInspector.Display
      70. Else
      71. .Send
      72. End If
      73. End With
      75. Set olMail = Nothing
      76. Exit Sub
      78. ErrHandling:
      80. Select Case Err.Number
      81. Case 429
      82. Set olApp = CreateObject("Outlook.Application")
      83. Resume Next
      84. Case Else
      85. MsgBox "Fehler bein E-Mail versenden" & vbNewLine & Err.Number & " " & Err.Description
      86. On Error GoTo -1
      87. End Select
      88. End Sub
      90. Public Function FileExists(ByVal strFilePath As String) As Boolean
      91. FileExists = False
      92. On Error Resume Next
      93. If Not Dir(strFilePath) = vbNullString And Not strFilePath = vbNullString Then
      94. FileExists = True
      95. End If
      96. End Function


      Es muss auf jeden Fall unter Extras - Verweise der Verweis auf die Microsoft Outlook X Library gesetzt sein.

      Die Prozedur SendEmail versendet eine E-Mail, FileExists prüft, ob Anlagen für den Versand zugänglich sind.

      In Zeile 27 wird versucht Outlook anzusprechen, falls Outlook geöffnet ist. Wenn Outlook nicht geöffnet ist, wird in der Fehlerroutine in Zeile 82 Outlook geöffnet.

      Ab Zeile 39 werden Anhänge an die E-Mail angefügt. Die Anlagen müssen mit einem Array übergeben werden. Ein Anhang muss immer mit seinem vollen Pfad angegeben werden. In Zeile 45 wird überprüft, ob die Anlage auch wirklich da ist.

      Ab Zeile 60 wird der E-Mail-Text aufgebaut.
      Wenn HTML = True wird die E-Mail in HTML geschrieben. Dies bedeutet, es wird die Standard-Signatur des Nutzers an die E-Mail angefügt.
      In Zeile 61 wird die Signatur ausgelesen und in Zeile 62 wieder angehängt.
      Wichtig ist hier das der Text auch in HTML formatiert sein muss.

      Ab Zeile 67 wird entschieden, ob die E-Mail angezeigt und vom Nutzer manuell versendet oder automatisch gesendet wird.
      NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

    Facebook
    Telefonspende