habe den gleichen Betrag schon letzte Woche eingestellt, leider bin ich nicht weiter gekommen.
Vielen dank erst mal an mumpel, aber die Makros habe nicht funktioniert. Kannst du oder jemand anders mir mal zur Hand gehen?
Ich möchte eien Mail versenden mit mehr als 10 Empfängern und wollte die anderen in Kopie anschreiben, denn bei 10 Empfängern ist Schluss und das Makro bleibt stehen.
Hier mein Makro: sKopie geht nicht!!!!!
Danke im voraus.
Sub KapaMailenCKSZ2()
Sheets("Sofo").Select
'Blattschutz deaktivieren
'Blatt für Fax
ActiveSheet.Shapes("Drop1").Visible = False
ActiveSheet.Shapes("Drop2").Visible = False
ActiveSheet.Shapes("Drop3").Visible = False
ActiveSheet.Shapes("Drop4").Visible = False
ActiveSheet.Shapes("Drop5").Visible = False
ActiveSheet.Shapes("Drop6").Visible = False
ActiveSheet.Shapes("Drop7").Visible = False
ActiveSheet.Shapes("Drop8").Visible = False
ActiveSheet.Shapes("Drop9").Visible = False
ActiveSheet.Shapes("Drop10").Visible = False
ActiveSheet.Shapes("Drop11").Visible = False
ActiveSheet.Shapes("Mail").Visible = False
Columns("AH:BZ").Select
Selection.EntireColumn.Hidden = True
Rows("68:110").Select
Range("A110").Activate
Selection.EntireRow.Hidden = True
Range("AL21").Select
ActiveSheet.Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial xlValues
Range("L13").Select
'Mail-Adressen
ActiveWorkbook.SendMail Range("AI63") & Range("AI66")
sKopie = "L.RSC#B9596123199@fax,H.F.#B93304042588@fax,L#B959650404404@fax"
'ActiveWorkbook.SendMail " @internet", "Verständigung"
'ActiveWorkbook.SendMail " @internet", "Verständigung"
'ActiveWorkbook.SendMail " @internet", "Verständigung"
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
'Blatt für Fax - zurück
Columns("AH:BZ").Select
Selection.EntireColumn.Hidden = False
Rows("68:110").Select
Range("A110").Activate
Selection.EntireRow.Hidden = False
ActiveSheet.Shapes("Drop1").Visible = True
ActiveSheet.Shapes("Drop2").Visible = True
ActiveSheet.Shapes("Drop3").Visible = True
ActiveSheet.Shapes("Drop4").Visible = True
ActiveSheet.Shapes("Drop5").Visible = True
ActiveSheet.Shapes("Drop6").Visible = True
ActiveSheet.Shapes("Drop7").Visible = True
ActiveSheet.Shapes("Drop8").Visible = True
ActiveSheet.Shapes("Drop9").Visible = True
ActiveSheet.Shapes("Drop10").Visible = True
ActiveSheet.Shapes("Drop11").Visible = True
ActiveSheet.Shapes("Mail").Visible = True
Range("AL21").Select
End Sub