Wilma k Excel Datei als PDF ...
01.02.2019 17:42:22
wilma
ich habe durch das Forum mal dieses Makro gefunden:
Sub Orginal_Excel_Workbook_via_Outlook_Senden()
Dim MyMessage As Object, MyOutApp As Object
Dim Qe As Integer
Dim AWS As String
'Prüfen ob die Datei schon mal gespeichert wurde
If Right(ThisWorkbook.Name, 3) "xls" Then
' Nein > Speicherdialog aufrufen
' Application.Dialogs(xlDialogSaveAs).Show
Else
' Speichern
' ThisWorkbook.Save
End If
'Aktive Arbeitsmappe wird als mail gesendet
'Übergabe des Mappennames an die Variable
AWS = ThisWorkbook.FullName 'altes Orginal
'Outlook Object erstellen
Set MyOutApp = CreateObject("Outlook.Application")
'Outlook Nachricht erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'Empfänger
' .To = "irgendwer@provider"
.To = ""
'Betreff
'.Subject = "Test 13.08.2015 für Daners" & Date & Time
.Subject = "Rechnung: " '& ActiveSheet.Name
.Attachments.Add AWS
'Hier wird ein normaler Text erstellt
.Body = "Hier den Text einsetzen..."
.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
Meine aktive Datei wird in Outlook gesendet.Ich möchte gern die aktive Datei als PDF versenden.
Was muss da geändert werden ?
gruß
wilma k