Ich habe folgendes Problem, für das ich keine Lösng finde:
Per Makro kopiere ich drei Spalten von einer Tabelle in eine andere, lasse die neue Tabelle unter einem bestimmten Namen abspeichern und versende dann diese Datei per Outlook - das funktioniert auch alles, nur schaff ich es nicht, daß das Mail die Standard-Signatur und einen Text beeinhaltet.
Hier das Script:
Range("BC6:BE67").Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\Tab1.xls"
Range("D12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-9
Range("A1:D2").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Tab2" & Month(Now) & Day(Now) & Year(Now) _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
AWS = ActiveWorkbook.FullName
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0) ' Neue Mail erstellen
.display ' Mail anzeigen
.Recipients.Add "name@mail.xyz"
.Subject = "BlubBlub!" ' Betreff setzen
.ReadReceiptRequested = True ' Rückmeldung senden
.Attachments.Add AWS
.Send ' Mail senden
End With
ActiveWindow.Close
Range("E6").Select
ActiveWorkbook.Save
Dieses Script funktioniert, aber eben ohne zusätzlichem Text - sobald ich ".body ="blabla"" einfüge, verschwindet die Sigantur.
Erhört mein Flehen :-)))
Danke!