Thema Datum  Von Nutzer Rating
Antwort
Rot Datei wird nicht an E-Mail angehangen
 10.01.2017 07:56:47 Florian
NotSolved
10.01.2017 08:23:01 SJ
NotSolved
10.01.2017 10:30:59 Florian
NotSolved

Ansicht des Beitrags:
Von:
Florian		 Datum:
10.01.2017 07:56:47		 Views:
959		 Rating:
     
Antwort:
  Ja
Thema:
Datei wird nicht an E-Mail angehangen

Hey,

ich möchte gerne die letzte datei aus einem Ordner an eine Email anhängen.

Das Mail programm geht auch auf, nur leider hängt er keine Datei an...?

 

    Dim strPath As String
    Dim strFile As String
    Dim strFileLast As String
    Dim dtmFileLast As Date
   
    strPath = "P:\ISK\PROJEKTE\ASE_PSM5\010 Loopcheck\030 Kaufmänische Abwicklung\Tagesmeldungen\"  'Aus dem Ordner die neueste Datei senden
   
    If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
   
    strFile = Dir$(strPath)
    Do While strFile <> ""
    If dtmFileLast < FileDateTime(strPath & strFile) Then
    dtmFileLast = FileDateTime(strPath & strFile)
    strFileLast = strFile
End If
    strFile = Dir$()
  Loop
   
  Debug.Print strPath & strFileLast, dtmFileLast
  
  
  
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
.To = "xxxx@xxx.de"
.Subject = "Tagesmeldung vom " & Date
.attachments.Add dtmFileLast
.Body = "Hallo Moritz, anbei sende ich dir die Aktuelle Tagesmeldung."
.Display
'.Mail.Send
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing

 

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 Datei wird nicht an E-Mail angehangen
 10.01.2017 07:56:47 Florian
NotSolved
10.01.2017 08:23:01 SJ
NotSolved
10.01.2017 10:30:59 Florian
NotSolved