ich möchte eine Datei, die mit einem Makro bearbeitet wird automatisch an einen Empfänger senden.
Wie sieht der VBA-Code dafür aus?
Danke für jeden Tipp.
Michael
Sub senden()
Application.DisplayAlerts = False
ThisWorkbook.SendMail _
Recipients:="Azubi/Kalk@biederlack.de", _
Subject:="Ein TEST"
Application.DisplayAlerts = True
End Sub
Sub sende()
Dim olApp As Object
Dim objNachrich As Object
Set olApp = CreateObject("Outlook.Application")
Set objNachrich = olApp.CreateItem(0)
Set Mail = objNachrich
Mail.To = "torsten@k.de;" & "mein.bruder@k.de"
Mail.Body = "Hallo," & Chr(10) & Chr(10) & "hier meine info" & Blattname & Chr(10) & Chr(10)
Mail.Subject = Blattname
Mail.Attachments.Add Pfad & Blattname & ".xls"
Mail.Display
Kill Pfad & Blattname & ".xls"
End Sub