Automail nsch Filterung?
Kai
dank dem User Ralf_P habe ich folgendes Makro erhalten:
Sub Mail()
Dim outl, Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "Rubriknummer" & " " & Range("B11").Value
Mail.To = Range("A1").Value & "; " & Range("a3").Value
'Mail.CC = "mail Adresse"
'Mail.BCC = "mailadresse"
'Wichtigkeit Hoch (1 = normal, 0 = niedrig)
Mail.Importance = 2
'Standardtext
Mail.body = "Hallo," & vbCrLf & vbCrLf & _
"Anbei eine Rubriknummeranforderung." & vbCrLf & vbCrLf & _
"Thema:" & " " & Range("B11").Value & vbCrLf & vbCrLf & _
"ET/s:" & vbCrLf & vbCrLf & _
"" & Range("B5").Value & ": " & Range("B8").Value & vbCrLf & _
"" & Range("c5").Value & ": " & Range("c8").Value & vbCrLf & _
"" & Range("d5").Value & ": " & Range("d8").Value & vbCrLf & _
"" & Range("e5").Value & ": " & Range("e8").Value & vbCrLf & _
"" & Range("f5").Value & ": " & Range("f8").Value & vbCrLf & _
"" & Range("g5").Value & ": " & Range("g8").Value & vbCrLf & _
"Format" & ": " & Range("b14").Value & vbCrLf & vbCrLf & _
"Mit freundlichen Grüssen" & vbCrLf & vbCrLf & _
"aus dem Vogelsberg" & vbCrLf & vbCrLf
'oder: die aktive Exceldatei als Anhang mitsenden...
'Mail.Attachments.Add ThisWorkbook.FullName
With Mail
.GetInspector ' sorgt für die Signatur
.Display 'Mail anzeigen
End With
End Sub
Das funktioniert auch echt super so wie es ist.
Leider schaffe ich es nichtn wenn ich die Autofilterfunktion benutze und dann auf den Button mit obigem Makro klicke, dass nur die gefilterten Mail Adressen genutzt werden. Es werden immer alle (auch die Ausgeblendeten) genommen und versendet. das ist allerdings sehr nervig und es gehen Mails an Leute welche keine bekommen sollen.
Danke für Eure Hilfe.
Kai