Thema Datum  Von Nutzer Rating
Antwort
Rot Nach KW suchen pdf erzeugen und per Mail senden
03.09.2023 11:49:52 United 007
NotSolved
03.09.2023 21:30:07 ralf_b
NotSolved
05.09.2023 08:39:30 volti
NotSolved
10.09.2023 12:23:23 United 007
NotSolved
10.09.2023 12:36:52 Volti
NotSolved
10.09.2023 12:48:33 Gast65992
NotSolved
10.09.2023 13:41:49 United 007
NotSolved
11.09.2023 09:23:52 volti
NotSolved
24.09.2023 15:16:33 United 007
NotSolved

Ansicht des Beitrags:
Von:
United 007
Datum:
03.09.2023 11:49:52
Views:
583
Rating: Antwort:
  Ja
Thema:
Nach KW suchen pdf erzeugen und per Mail senden

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
 

 


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 Nach KW suchen pdf erzeugen und per Mail senden
03.09.2023 11:49:52 United 007
NotSolved
03.09.2023 21:30:07 ralf_b
NotSolved
05.09.2023 08:39:30 volti
NotSolved
10.09.2023 12:23:23 United 007
NotSolved
10.09.2023 12:36:52 Volti
NotSolved
10.09.2023 12:48:33 Gast65992
NotSolved
10.09.2023 13:41:49 United 007
NotSolved
11.09.2023 09:23:52 volti
NotSolved
24.09.2023 15:16:33 United 007
NotSolved