Thema Datum  Von Nutzer Rating
Antwort
Rot Kleine Syntaxfehler oder großes Problem / eMail VBA Pdf
 22.11.2018 03:11:25 TOM
Solved
23.11.2018 20:16:11 Ulrich
NotSolved
27.11.2018 06:04:48 Gast46127
Solved

Ansicht des Beitrags:
Von:
TOM		 Datum:
22.11.2018 03:11:25		 Views:
1297		 Rating:
     
Antwort:
 Nein
Thema:
Kleine Syntaxfehler oder großes Problem / eMail VBA Pdf

Hallo,

 

ich habe im Internet ein Script zum versenden von Makros gefunden (s.U.) , das auch perfekt funktioniert. Ich wollte es anpasen, damit das Speichern der Analge immer unter aktuellem Datum im aktuellem Monatsordner erfolgt. Das Klappt auch, in dem ich inder  Zeile

 

 

?
1
Sheets("Tabelle2").ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Test\Mappe1.pdf",

statt

?
1
D:\Test\Mappe1.pdf"

Variabeln & "Text" verette wird die Datei so wie gewünscht gespeichert.

 

Aber der Aufruf unter       

?
1
        .Attachments.Add "D:\Test\Mappe1.pdf"

klappt nicht. Auch ier habe ich versucht

?
1
2
3
"D:\Test\Mappe1.pdf"
 
durch dieselben <em><strong>Variabeln & "Text"</strong></em> wie davor zu ersetzen - klappt aber nicht

 

?
1
 

Jetzt dacht ich es wäre ganz leicht dafür eine Varaible zu nutzen

?
1
.Attachments.Add = Anlagenpfad

Wobei Anlagenpfad als     Dim  Anlagenpfad As String definiert wurde und dann wieder Anlagenpfad =

?
1
<strong><em>Variabeln & "Text"</em></strong>

 

Danke für Eure Hilfe, ich hoffe es ist nur ein kleines Problem.

 

lg Tom

 

Das Beispirlscript:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
     Dim Mailadresse  As String, Betreff As String
     Dim olApp As Object
     Set olApp = CreateObject("Outlook.Application")
     Mailadresse = "meinemail@office-loewsungen.de"
     Betreff = "Super Betrefftext - sollte man lesen"
     Sheets("Tabelle2").ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Test\Mappe1.pdf", _
         Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
     With olApp.CreateItem(0)
         .to = Mailadresse
         .Subject = Betreff
         .Attachments.Add "D:\Test\Mappe1.pdf"
         .Display
         .Send
     End With
     Set olApp = Nothing
 End Sub

http://www.office-loesung.de/ftopic581380_0_0_asc.php

 

Mein Script

?
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
Sub mail()
 
 
Dim saveFolder2TEST As String
Dim AKTUELLERMONATFUTTEST As String
Dim dateFormatTAGTEST As String
 
 
 
saveFolder2TEST = "T:\TESTPFAD"
AKTUELLERMONATFUTTEST = Format(Date, "YYYY-MM-MMMM") '
dateFormatTAGTEST = Format(Now, "dd-mmm-yy")
 
 
      
     If Dir(saveFolder2TEST & "\" & AKTUELLERMONATFUTTEST, vbDirectory) = "" Then
     MkDir (saveFolder2TEST & "\" & AKTUELLERMONATFUTTEST)
End If
 
 
 
 
 
 
    Dim Mailadresse  As String, Betreff As String, Anlagenpfad As String
    Dim olApp As Object
    Set olApp = CreateObject("Outlook.Application")
    Mailadresse = "steht dann hier"
    Betreff = "Super Betrefftext - sollte man lesen"
    Anlagenpfad = saveFolder2TEST & "\" & AKTUELLERMONATFUTTEST & "\" & dateFormatTAGTEST & " -GM-Night-Audit-Report"
    Sheets("GM-REPORT").ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveFolder2TEST & "\" & AKTUELLERMONATFUTTEST & "\" & dateFormatTAGTEST & " --Dateinamehier", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    With olApp.CreateItem(0)
        .to = Mailadresse
        .Subject = Betreff
'Ab hier hängt es
        .Attachments.Add = saveFolder2TEST & "\" & AKTUELLERMONATFUTTEST & "\" & dateFormatTAGTEST & " -Dateinamehier"
        .Display
        .Send
    End With
    Set olApp = 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:
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
Rot Kleine Syntaxfehler oder großes Problem / eMail VBA Pdf
 22.11.2018 03:11:25 TOM
Solved
23.11.2018 20:16:11 Ulrich
NotSolved
27.11.2018 06:04:48 Gast46127
Solved