E-Mail an markierte Personen Verfasst am: 28.04.2011, 14:17
Hallo Forum,
ich bräuchte eure Hilfe bei einem Makro.
Ich habe eine Excel-Liste, die folgendermaßen aufgebaut ist:
Nun möchte ich, nachdem ich auf einen Butten geklickt habe, dass das Makro an alle in dem Dropdown Feld mit X markierten Personen eine Mail per Outlook sendet. Die X sind in Spalte H, Die E-Mail Adressen in Spalte G.
Ich habe hier eine Vorlage für das verschicken mit Outlook:
Code:
Sub emailverschicken()
Dim Adressat As String
Dim cell As Range
Dim outapp As Object, outmail As Object
Dim Mailnachricht As String
Adressat = ""
For Each cell In Selection
If cell.Value Like "*@*" And cell.EntireRow.Hidden = False Then
Adressat = Adressat & ";" & cell.Value
End If
Next
Adressat = Mid(Adressat, 2)
Set outapp = CreateObject("Outlook.Application")
Set outmail = outapp.CreateItem(0)
With outmail
.Display
.GetInspector
.To = Adressat
.Subject = "IPMB-Liste vom " & Date
.HTMLBody = Mailnachricht & .HTMLBody
End With
Set outmail = Nothing
Set outapp = Nothing
Range("A2").Select
End Sub
Könnt Ihr mir Bitte weiterhelfen? Ich bin am verzweifeln.
Registrieren
Login
