Thema: Emailrundschreiben mit vorgegebenem Text über Outlook

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

Beiträge aus dem Excel-Forum zu den Themen Extern und Email