E-MAil verschicken mit geänderte Dateinamen
14.12.2007 11:46:00
Patric
ich habe von meinem Chef den Auftrag bekommen, eine Excel Sheet so umzubauen das jeder in der Firma es mit einem Knopfdruck an eine vorgegebene E-Mail schicken kann. Wenn möglich mit so wenig zusätzlichen klicks.
Zum verschicken einer Arbeitsmappe gibts ja jede Menge verschiedene Bespiele. Z.B
Option Explicit
Sub Excel_Workbook_via_Outlook_Senden()
Dim MyMessage As Object, MyOutApp As Object
Dim Qe As Integer
Dim AWS As String
'Aktive Arbeitsmappe wird als mail gesendet
'Übergabe des Mappennames an die Variable
AWS = ThisWorkbook.FullName
'Outlook Object erstellen
Set MyOutApp = CreateObject("Outlook.Application")
'Outlook Nachricht erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'Empfänger
.To = "irgendwer@provider"
'Betreff
.Subject = "Spesenabrechnung " & Date & Time
.Attachments.Add AWS
'Hier wird ein normaler Text erstellt
.Body = "Mail für normalen Textempfang"
.Display
'Hier wird die Mail gleich in den Postausgang gelegt und gesendet
'.Send
End With
'Variablen leeren
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Folgende Probleme habe ich leider noch:
- wie kann ich den Name des Files welches per Mail verschickt wird ändern? Er sollte so heissen: Spesenabrechnung_"Zelle A13"_&Data
&Time.xls in der Zelle A13 befindet sich der Name das Users.
- Wie kann ich es machen das Outlook das Mail direkt verschickt, ohne die Meldung anzuzeigen das ein externes Programm etwas automatisch verschicken will?
Danke für eure Hilfe
Patric