Hallo zusammen,
habe folgendes Macro gebastelt, das auch perfekt funktioniert.
File wird gespeichert und anschließend an die verschiedenen Emailadressen als Anhang gesandt.
Muss nun mein Makro um folgende Funktion erweitern:
- Files müssen mit Winzip komprimiert werden und als zip file an die entsprechenden Mail Adressen versandt werden.
Wer kann mir da helfen? Schon mal zu voraus recht herzlichen Dank
Gruß Hansueli
'Dim namefile As String
Sheets("Segment").Select
namefile = ActiveSheet.Range("m2").Value
ActiveWorkbook.SaveAs Filename:= _
"C:\Temp\" & namefile & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Sheets("Customer details").Select
ActiveWorkbook.SendMail
"test@test.com;test1@test1.com;test2@test2.com;test3@test3.com",
ActiveSheet.Range("A1").Value
End Sub