Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Schaltfläche Öffnen PDF
27.07.2022 09:50:01 Nils
NotSolved
27.07.2022 11:18:11 Mase
NotSolved
27.07.2022 12:21:59 Gast42018
NotSolved
27.07.2022 12:35:10 Mase
NotSolved
27.07.2022 13:53:01 Nils
NotSolved
27.07.2022 14:13:03 Mase
NotSolved
27.07.2022 14:27:45 Nils
NotSolved
27.07.2022 14:36:35 Mase
NotSolved
28.07.2022 06:57:25 Nils
NotSolved
28.07.2022 07:47:23 Mase
NotSolved
27.07.2022 12:31:44 Gast80044
NotSolved

Ansicht des Beitrags:
Von:
Nils
Datum:
27.07.2022 09:50:01
Views:
102
Rating: Antwort:
  Ja
Thema:
Makro Schaltfläche Öffnen PDF

Hallo Zusammen,

 

leider komme ich nicht mit meinem Makro weiter.

Ich möchte folgende Excel-Makro ausführen.

Schaltfläche 1--> Speichern einer PDF und Automatisches Öffnen

Schaltfläche 2--> Gespeicherte PDF soll in Outlook an Personen X geöffnet und Händisch versendet werden.

 

ANbei meine Codes...

Wo ist der Fehler...Vielen Dank :-)

Schaltfläche1:

Sub PDF_Speichern_unter()

Dim DateiName As String
DateiName = Range("I5") & Range("I4") & ".pdf"

Range("A1:G41").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnoreprintAreas:=False, OpenAfterPublish:=True

End Sub

 

 

Schaltfläche 2:

Sub PDF_Speichern_unter_Mail()

Dim DateiName As String
DateiName = Range("I5") & Range("I4") & ".pdf"
Range("A1:G41").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnoreprintAreas:=False, OpenAfterPublish:=True

 

Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments

With OutlookMailItem
.To = Range("I2")
.Subjekt = Range("I4")
.Body = Range("I6")
myAttachments.Add DateiName
.Display
End With

Set Outlook = Nothing
Set Outlook = Nothing

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Schaltfläche Öffnen PDF
27.07.2022 09:50:01 Nils
NotSolved
27.07.2022 11:18:11 Mase
NotSolved
27.07.2022 12:21:59 Gast42018
NotSolved
27.07.2022 12:35:10 Mase
NotSolved
27.07.2022 13:53:01 Nils
NotSolved
27.07.2022 14:13:03 Mase
NotSolved
27.07.2022 14:27:45 Nils
NotSolved
27.07.2022 14:36:35 Mase
NotSolved
28.07.2022 06:57:25 Nils
NotSolved
28.07.2022 07:47:23 Mase
NotSolved
27.07.2022 12:31:44 Gast80044
NotSolved