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

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

statt

D:\Test\Mappe1.pdf"

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

Aber der Aufruf unter       

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

klappt nicht. Auch ier habe ich versucht

"D:\Test\Mappe1.pdf"

durch dieselben Variabeln & "Text" wie davor zu ersetzen - klappt aber nicht

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

        .Attachments.Add = Anlagenpfad

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

Variabeln & "Text"

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

lg Tom

Das Beispirlscript:

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

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