Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Emailrundschreiben mit vorgegebenem Text über Outlook

Gruppe

Email

Problem

An den in Spalte A gelisteten Empfängerkreis ist ein Outlook-Email-Rundschreiben mit dem Text aus einer TextBox zu richten.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: basMain

Sub Sample()
   Dim olApp As Object
   Dim olMailItm As Object
   Dim iCounter As Integer
   Dim Dest As Variant
   Dim SDest As String
   Set olApp = CreateObject("Outlook.Application")
   Set olMailItm = olApp.CreateItem(0)
   With olMailItm
       SDest = ""
       For iCounter = 1 To _
         WorksheetFunction.CountA(Columns(1))
           If SDest = "" Then
               SDest = Cells(iCounter, 1).Value
           Else
               SDest = SDest & ";" & Cells(iCounter, 1).Value
           End If
       Next iCounter
       .BCC = SDest
       .Subject = "Kundeninfo"
       .Body = ActiveSheet.TextBoxes(1).Text
       .Send
   End With
   Set olMailItm = Nothing
   Set olApp = Nothing
End Sub