Aus Excel Email versenden
22.02.2007 09:19:12
Falk
das untenstehende Makro (von Bernd Held und von mir ein kleinwenig modifiziert) funktioniert einwandfrei.
Ich habe jetzt nur zwei kleine Probleme:
1. Beim Aufrufen des Makros erscheint immer eine Sicherheitsabfrage von Outlook "Eine Anwendung versucht, automatisch Nachriten in Ihrem ..." wie bekomme ich diese weg?
2. Ich würde gerne jemanden in CC: angeben, weiß aber nicht wie!
3. Ebenfalls möchte ich gerne automatisch einen Standardtext eingeben, aber wie?
Kann mir jemand helfen das Coding entsprechend zu ändern?
Danke für Eure Hilfe im voraus
Grüße
Falk
Function Email_versenden()
Dim Empfänger As String
Empfänger = Range("g10").Value
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("F1").Value & ".xls"
ActiveWorkbook.SendMail _
Recipients:=Empfänger, _
Subject:=Range("F1").Value, _
Introduction:="test"
ActiveWorkbook.Close savechanges:=False
End Function