AW: Excel Bereich als pdf Anhang senden
12.11.2018 16:49:00
niclaus
Hallo Namensvetter
Ich hätte da auch noch etwas. - Im Makro musst Du anpassen:
· den Ordner, in dem der Tabellenausschnitt gespeichert wird
· den Empfänger-Namen - kann auch leer bleiben
· Subject und Body - können auch leer bleiben
Bei mir mit Office 2013 klappt das so bestens. Ich hoffe bei Dir auch.
Grüsse Nicolaus
Sub Makro2()
' Ausschnitt aus Tabelle als PDF verschicken
Dim mgb
Dim ordner$, dateiname$, AWS$, Empfaenger$
Dim MyMessage As Object, MyOutApp As Object
Dim Qe As Integer
mgb = MsgBox("Ist Outlook geoeffnet?", 36, Environ("UserName"))
If mgb = 7 Then Exit Sub
Empfaenger = "xxxxx@bluewin.ch"
ordner = "D:\Documents\0000_TEST2\"
dateiname = Format(Now, "yyyymmdd_hhmmss") & ".pdf"
' Auswahl der Excel-Tabelle wird als PDF erstellt
Range("A1:D20").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ordner & dateiname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
'Outlook Object und Nachricht erstellen
'Absender ist die Standard-Versand-Adresse
AWS = ordner & dateiname
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Empfaenger
.Subject = "pdf Versand" ' Betreff
.Attachments.Add AWS
.Body = "irgend ein Text" ' Ein Text im Email.
.Display
'.Send ' statt .Display! - Mail wird direkt verschickt.
End With
'Variablen leeren
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub