E-Mails aus Excelmappe versenden

[Rabe]

Hi,

Ich möchte jetzt mit einem Klick ein neues E-Mail Fenster mit allen Mail Adressen aus B1-B30.
Bei deiner Formel steht aber nur die erste Mailadresse im Absender. Ich hätte aber gerne alle 30.

Mit diesem Makro kannst Du die Liste aus Spalte B in die To-Zelle E1 eintragen lassen:

Option Explicit

Sub Mail_Adressen()
   'Zusammenfassen der Adressen aus Liste (Spalte B) in Adress-Zelle (E1) 
   Dim cell As Range
   Dim strTo As String
   Dim loLetzte As Long
   With ActiveSheet
      loLetzte = .Cells(Rows.Count, 2).End(xlUp).Row           ' letzte belegte in Spalte B (2) 
      
      For Each cell In .Range("B2:B" & loLetzte)
         If cell.Value Like "?*@?*.?*" Then
            strTo = strTo & cell.Value & ";"
         End If
      Next cell
      If Len(strTo) > 0 Then strTo = Left(strTo, Len(strTo) - 1) 'entfernen des letzten (überflüssigen) Semikolon 
      .Range("E1") = strTo
   End With
End Sub

Dann noch auf den Link in E4 klicken und das Mailfenster geht auf.
Also 2 Klicks.

  Mail a small Message.xlsb (Größe: 17,8 KB / Downloads: 3)


Wenn Du Subjekt und Body nicht benötigst, wird Outlook vermutlich nachfragen und Du hast einen Klick mehr.