Frage
Antwort
Danke für eure Lösungsansätze. Die Lösung habe ich nun gefunden. mit folgendem Skript füge ich in Zelle N3 (welche ausgeblendet ist) alle E-Mail Adressen mit einem Semikolon ein:
AbZeile = 4
Spalte = "D"
Trenn = ";"
Ergebniszelle = "N1"
Zeile = AbZeile
Do Until Zeile = 999
Gesamt = Gesamt & ";" & Cells(Zeile, Spalte)
Zeile = Zeile + 1
Loop
Range(Ergebniszelle).Value = Mid(Gesamt, 2)Somit fragt es die Spalte D ab bis zur Zelle D999, welches ich auch noch erweitern könnte. Die unnötigen ";" werden von Outlook gelöscht.
Der Rest sieht dann wie folgt aus (sorry wegen den unnötigen Kommentaren):
Quelle = ActiveWorkbook.ActiveSheet.Name
Dim outl, Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = Sheets(Quelle).Range("G7")
Mail.body = Sheets(Quelle).Range("G8") & vbCrLf & vbCrLf & Sheets(Quelle).Range("G9")
Mail.To = Sheets(Quelle).Range("G4")
Mail.CC = Sheets(Quelle).Range("G5")
Mail.bcc = Sheets(Quelle).Range("N1")
'& "; " & Sheets(Quelle).Range("A2") & "; " & Sheets(Quelle).Range("A3")
'Wichtigkeit Hoch (1 = normal, 0 = niedrig)
'ausgelassen: Mail.Importance = Sheets(Quelle).Range("C16")
'Standardtext
'oder: die aktive Exceldatei als Anhang mitsenden...
'Mail.Attachments.Add ThisWorkbook.FullName
'Mail anzeigen
Mail.Display
'Ein sofortiger Mail-Versand geht in Firmen wegen Sicherheitseinstellungen oft nicht:
'Mail.Send
'aber es gibt eine Lösung mit SendKeys per Windows Scripting Host (Verweis ins VB-Projekt einfügen!):
'Dim WshShell
'Set WshShell = CreateObject("WScript.Shell")
'WshShell.AppActivate Mail
'Sendet ein "Alt-S", Outlook sendet Mail sofort ohne Sicherheitsabfrage:
'WshShell.SendKeys ("")
Set Mail = Nothing
Set outl = Nothing
Set WshShell = Nothing
End Sub
