Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Sub SendMessage()
   Dim oOL As Object
   Dim oOLMsg As Object
   Dim oOLRecip As Object
   Dim rng As Range, oCell As Range
   Dim sAddress As String, sTxt As String
   sAddress = "hans@herber.de"
   sTxt = "Erste Zeile" & vbLf & "Zweite Zeile" & vbLf
   For Each rng In Selection.Areas
      sTxt = sTxt & vbLf
      For Each oCell In rng.Cells
         sTxt = sTxt & oCell.Text & vbLf
      Next oCell
   Next rng
   Set oOL = CreateObject("Outlook.Application")
   Set oOLMsg = oOL.CreateItem(0)
   With oOLMsg
      Set oOLRecip = .Recipients.Add(sAddress)
      .Subject = "Dies ist ein Outlook-Test"
      .Body = sTxt
      .Send
   End With
   oOLRecip.Resolve
   Set oOLRecip = Nothing
   Set oOLMsg = Nothing
   Set oOL = Nothing
End Sub

    

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