e-mail empfänger
03.11.2003 08:33:31
Burgy
Letztens habe ich folgende Script bekommen,leider sendet diese nur ein e-mail an die als erst genannten empfänger,alle anderen nicht,ich benützte microsoft Outlook, kann da jeman helfen?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Empfänger As String
Thisworkbook.save
'Hier kannst du auch alternativ so machen:
'Empfänger = "MaxMusterman@herber.de;HansGluecklich@spass.de;peter@spass.de"
Empfänger = sheets("Tabelle2").Cells(1,1).value
If Empfänger = "" Then Exit Sub
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A1").Value & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, _
Subject:=Range("A1").Value
ActiveWorkbook.Close savechanges:=False
End Sub
Danke,
Burgy.