Hallo zusammen,

ich bitte um Unterstützung.

Ich möchte, die zu sendende Mail über einen Button steuern. Wenn ich den Button anklicke, soll ein Fenster erscheinen zur Eingabe der Kalenderwoche die als PDF erzeugt wird, im Ordner abgelegt wird und die PDF Datei soll per Mail (Outlook) versendet werden. Excel soll die Mail vorbereiten bzw. öffnen, aber nicht automatisch senden.

Gedruckt weden soll immer die Spalten A bis D sofern die Kalenderwoche stimmt
Habe ein Teil hinbekommen, aber komme nicht weiter.
Hoffe, jemand kann mir helfen.

Vielen Dank schonmal im Voraus.

A4 = Datum, B4 = KW, C4 = Text, D4 = Text.

Sub Excel_Mail_senden()
'Variablendefinition
Dim fs As Object            'Das ist eine Datei
Dim F As Object             '  ?
Dim OutApp As Object        'Das E-Mail-Programm
Dim Mail As Object          'Die für sich
Dim i As Integer            'Die abzuarbeitenden Zeilen
Dim y As Integer            'Die Zeilen der Dateien
Dim Msg As Integer          ' ? Rückgabewert der MSG-Box ?
Dim Nachricht As Variant    'Definition der E-Mail-Dtails
Dim AWS As String           'Übergabe der Datei/Pfad-Namen
Dim AnzEmpfänger As Integer 'Anzahl der Schleifenwiederholungen
Dim Auswahldatum As String  'Datum der Auswertungen eingeben (für die Datei-Auswahl)
Dim AnzDateien As Integer 'Anzahl der Schleifenwiederholungen
'Auswertungsdatum setzen
Auswahldatum = InputBox("Bitte geben Sie die Kalenderwoche (KW) ein, die per Mail gesendet werden soll." & Chr(10))
Range("D1").Value = Auswahldatum
'Variablen füllen
'Filesystemobjekt erstellen
Set fs = CreateObject("Scripting.FileSystemObject")
'Hier die Anzahl Empfänger definieren
'Kann auch ein Range auf der Tabelle sein

Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
        .To = "XXX"
        .CC = "CC_1" & ";" & "CC_2"
        '.cc
        '.bcc
        'Wichtigkeit Hoch (1 = normal, 0 = niedrig)
        '.importance = 2
        .Subject = strSubj
        .Body = strBody    'wenn ausgeblendet, wird Standard-Signatur eingefügt
        '.BodyFormat = 2   'olFormatHTML
        '.ReadReceiptRequested = True    'Lesebestätigung anfordern
        .Attachments.Add strFILE
        .display
        '.send

    End With

Set wksPDF = Nothing
Set olApp = Nothing

End Sub