Thema Datum  Von Nutzer Rating
Antwort
22.10.2018 11:11:00 MF1
NotSolved
22.10.2018 11:13:21 MF1
NotSolved
Rot Excel als PDF per Mail versenden
 22.10.2018 11:33:37 Gast87370
NotSolved

Ansicht des Beitrags:
Von:
Gast87370		 Datum:
22.10.2018 11:33:37		 Views:
677		 Rating:
     
Antwort:
  Ja
Thema:
Excel als PDF per Mail versenden

NEUER VERSUCH:

Hallo zusammen,

ich benötige leider dringend eure Hilfe:

Ich habe folgenden Code, damit ich eine ausgefüllte Excel-Datei per Makro als Excel und PDF automatisch in einem frei gewähltem Order speichere. Das klappt soweit auch sehr gut.

 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Speichern_unter_mit_Dateinamen()
Dim Dateiname As String
Dateiname = Range("$D$7").Value & " " & Range("$F$4").Value & ".xls" 'Als Excel
Application.Dialogs(xlDialogSaveAs).Show Dateiname 'Als Excel
 
With ActiveSheet.PageSetup.PrintArea = "A2:V252"
End With
 
With ActiveSheet.PageSetup
     .Zoom = 45 'Zoomfaktor 85%
     .FitToPagesWide = 1 '1 Seite breit
     .FitToPagesTall = 1 '1 Seite hoch
 End With
  
 
newName = Range("$B$7").Value & " " & Range("$A$4").Value & ".pdf" 'PDF
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=newName, fileFilter:="PDF (*.pdf), *.pdf") 'PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName 'PDF
 
End Sub

Jetzt will ich die generierte PDF-Datei zudem per Outlook versenden. Hierbei läuft aktuell alles schief :(

Wie schaffe ich es, dass die zuvor generierte PDF bei Outlook eingefügt wird? Die Dateien werden nicht immer am gleichen Speicherort abgelegt, sodass der oben genannte Code auch neu ausgeführt werden kann und die Datei dann in Outlook eingefügt wird.

 

Der Code der bis jetzt am nächsten ans Ergebnis ran kam war nachfolgender:

Quelle:https://www.dfinvesting.com/makros.php?81#81

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub pdf_per_mail()
    Dim pdf As String
    pdf = pdf_erstellen
    Call permail(pdf)
    Kill (pdf) 'pdf wieder löschen
End Sub
 
 
Function pdf_erstellen()
    Dim pdf As String
    Dim sep As String
    sep = Application.PathSeparator
    pdf = ThisWorkbook.Path & sep & ThisWorkbook.Name & "_" & Date & Format(Time, "hhmm") & ".pdf" 'Speicherpfad
     
    On Error Resume Next
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    On Error GoTo 0
     
    pdf_erstellen = pdf
End Function
             
Sub permail(ByVal pdf As String)
Dim objOutlook As Object
Dim objMail As Object
Dim myAttachments
 
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Set myAttachments = objMail.Attachments
 
With objMail
    .To = "office@dfinvesting.com"
    .Subject = "Excelpedia + youtube"
    .Body = "Sehr geehrte Damen und Herren, " & vbNewLine _
        & vbNewLine _
        & "Danke für das Video zum automatischen Versenden von mails." & vbNewLine _
        & "lg"
         
    myAttachments.Add pdf 'Anhang
 
        'Nachricht zur Kontrolle anzeigen
    .Display
 
        'Oder direkt senden
        '.Send
End With
End Sub

Könnt ihr mir weiterhelfen/Tipps geben, wie ich das Problem am einfachsten lösen kann?

Ich bin leider neu auf dem VBA-Gebiet und sehe aktuell den Wald vor lauter Bäumen nicht mehr :/

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
22.10.2018 11:11:00 MF1
NotSolved
22.10.2018 11:13:21 MF1
NotSolved
Rot Excel als PDF per Mail versenden
 22.10.2018 11:33:37 Gast87370
NotSolved