Tabellenblatt mit Outlook Signatur verschicken

[VBA Neuling]

Hallo,
ich habe im Netz ein kleines Makro gefunden, mit dem man ein Tabellenblatt mit Outlook verschicken kann.
Simple und einfach.

Sub TabellenblattVerschicken()
ActiveSheet.Copy
Application.Dialogs(xlDialogSendMail).Show _
 "...@....de", "Betreff"
End Sub

Wie bekomme ich aber zusätzlich in der nun zu versendenden Mail meine Outlook Mail Signatur rein ?

[Zwergel]

Hi,
vielleicht hilft dir das weiter:

http://www.ms-office-forum.net/forum/sho...p?t=245260

[VBA Neuling]

Danke schon mal,
aber da ich wie gesagt kein Experte bin, bäuchte ich etwas, was in das vorhandene Makro eingebaut werden könnte.

:s

[VBA Neuling]

Hallo,
ich habe im Netz ein kleines Makro gefunden, mit dem man ein Tabellenblatt mit Outlook verschicken kann.
Simple und einfach.

Sub TabellenblattVerschicken()
ActiveSheet.Copy
Application.Dialogs(xlDialogSendMail).Show _
 "...@....de", "Betreff"
End Sub

Wie bekomme ich aber zusätzlich in der nun zu versendenden Mail meine Outlook Mail Signatur rein ?
Am besten in das bereits oben stehende Mini Makro.

[Steffl]

Hallo,

kannst Du das

Code:

Sub Excel_Sheet_via_Outlook_Senden()
   'von Rainer Beckerbauer, www.online-excel.de
   Dim MyMessage As Object, MyOutApp As Object
   Dim SavePath As String
   Dim AWS As String
   SavePath = "D:" '"E:\Eigene Dateien"
   'Kopiert aktuelles Sheet in eine neue Mappe
   'welche nur diese Tabelle enthält
   ActiveSheet.Copy
   'Speichert die Datei unter dem Tabellennamen und einem Zeitstempel
   ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & "_" & Format(Now, "ddmmyyyy_hhmm") & ".xls"
   'Mappenname wird an Variable übergeben
   'und anschliessend gleich geschlossen
   With ActiveWorkbook
       AWS = .FullName
       .Close
   End With
   'InitializeOutlook = True
   Set MyOutApp = CreateObject("Outlook.Application")
   'Nachrichtenobject erstellen
   Set MyMessage = MyOutApp.CreateItem(0)
   With MyMessage
       .To = "irgendwer@Irgenwo.de"
       .Subject = "Testmeldung von Excel2000 " & Date & Time
       'Hier wird die temporär gespeicherte Datei als
       'Attachment zugefügt
       .Attachments.Add AWS
       'Hier wird eine normale Text Mail erstellt
       '.body = "Das ist ein Test" & vbCrLf & "Bitte ignorieren"
       'Hier wird die HTML Mail erstellt
       .HTMLBody = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
       'Hier wird die Mail nochmals angezeigt
       .GetInspector     ' sorgt für die Signatur
       .Display
       'Hier wird die Mail gleich in den Postausgang gelegt
       '.Send
       'Hier wird die temporäre Datei wieder gelöscht
       Kill AWS
   End With
   MyOutApp.Quit
   Set MyOutApp = Nothing
   Set MyMessage = Nothing
End Sub

anpassen?

[Zwergel]

siehe hier http://www.clever-excel-forum.de/thread-14691.html

[VBA Neuling]

danke, werde es ausprobieren :17: