Email mit Dateianlage senden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
LW und Pfadwechsel sind notwendig. Ohne geht garnichts.
warum weis ich nicht, eventuell weil Datei auf Floppy und Archiv auf Server?
Datei wird richtig gespeichert.
geht aber immer noch nicht.
hier noch mal der Code


Sub senden()
'Datei speichern
ActiveWorkbook.Save
'Speichern im Archiv mit Datum und Zeit
ChDrive ("G:\")
ChDir ("G:\Projekte\Archiv\")
Tagesdatum = Application.Text(Now(), "dd.mm.yyyy hh.mm")
Sicherung = "Arbeitsplanung-M" & "-" & "gesendet am " & Tagesdatum & "Uhr" & ".xls"
ActiveWorkbook.SaveCopyAs Sicherung
ChDrive ("G:\")
ChDir ("G:\Projekte\")
'E-Mail erstellen
Dim ol, itm As Object
Dim AWS As String
Set ol = CreateObject("Outlook.Application")
Set itm = ol.CreateItem(0)
'E-Mail Adressen angeben
itm.To = "otto@eprise.com"
itm.CC = "paul@eprise.com"
'itm.BCC = ""
'Betreff angeben
itm.Subject = "Arbeitsmeldung M"
'Text angeben
itm.body = "Arbeitsmeldung-M vom  " & _
Application.Text(Now(), "dddd dd.mm.yyyy   hh.mm") & "Uhr"
'Dateianlage einfügen
ChDrive ("G:\")
ChDir ("G:\Projekte\Archiv\")
itm.Attachements.Add Sicherung
'oder
'itm.Attachements.Add _
"G:\Projekte\Archiv\" _
& "Kurzarbeitsplanung-M" & "-" & "gesendet am " & Tagesdatum & "Uhr" & ".xls"
'E-Mail anzeigen vor senden
itm.Display
End Sub

Hi.
Sorry, ich sehe da keinen Fehler. Ich benutze einen ähnlichen Code und der tut. Vor allem wundert es mich, dass der Verzeichniswechsel notwendig ist, ich speichere ständig Dateien hin und her und das läuft bei mir ausschließlich über absolute Pfadangaben - chDir habe ich nur im Code, wenn ein Speichern oder Öffnen Dialog in einem bestimmten Verzeichnis starten soll.
Was Du noch probieren könntest:
1. Setze das .Display vor das Einfügen des Attachments. Ich habe da was im Hinterkopf, dass das bei mir mal Probleme gemacht hat (auch wenn es aktuell in meinem Code auf beide Arten funktioniert).
2. Setze einen Verweis auf die Microsoft Outlook 11.0 Object Library
Irgendwas war da mit den Attachments, ich hab da auch mal eine Stunde rumgemacht, bis das funktioniert hat, nur ich kriege es gerade nicht mehr zusammen, wo das Problem war.
Gruss, Jogy

Option Explicit Sub myMacro() Dim MyDateiName As String, Tagesdatum As String, Sicherung As String ChDrive ("C:\") ChDir ("C:\Projekte\Archiv\") Tagesdatum = Application.Text(Now(), "dd.mm.yyyy hh.mm") Sicherung = "Arbeitsplanung-M" & "-" & "gesendet am " & Tagesdatum & "Uhr" & ".xls" ActiveWorkbook.SaveCopyAs Sicherung MyDateiName = "C:\Projekte\Archiv\" & Sicherung MsgBox MyDateiName 'Testbox itm.Attachements.Add MyDateiName End Sub

Sub myMacro() ChDrive ("C:\") ChDir ("C:\Projekte\Archiv\") Tagesdatum = Application.Text(Now(), "dd.mm.yyyy hh.mm") Sicherung = "Arbeitsplanung-M" & "-" & "gesendet am " & Tagesdatum & "Uhr" & ".xls" ActiveWorkbook.SaveCopyAs Sicherung MyDateiName = "C:\Projekte\Archiv\" & Sicherung senden End Sub

Sub senden() 'E-Mail erstellen Dim ol As Object Dim AWS As String Set ol = CreateObject("Outlook.Application") With ol.CreateItem(0) 'E-Mail Adressen angeben .To = "paul@eprise.com" 'itm.CC = "paul@eprise.com" 'itm.BCC = "" 'Betreff angeben .Subject = "Arbeitsmeldung M" 'Text angeben .body = "Arbeitsmeldung-M vom " & Application.Text(Now(), "dddd dd.mm.yyyy hh.mm") & " _ Uhr" 'Dateianlage einfügen MsgBox MyDateiName 'Testbox .attachments.Add MyDateiName .Display End With Set ol = Nothing End Sub

Option Explicit Public MyDateiName As String, Tagesdatum As String, Sicherung As String Sub myMacro() ChDrive ("C:\") ChDir ("C:\Projekte\Archiv\") Tagesdatum = Application.Text(Now(), "dd.mm.yyyy hh.mm") Sicherung = "Arbeitsplanung-M" & "-" & "gesendet am " & Tagesdatum & "Uhr" & ".xls" ActiveWorkbook.SaveCopyAs Sicherung MyDateiName = "C:\Projekte\Archiv\" & Sicherung senden End Sub Sub senden() 'E-Mail erstellen Dim ol As Object Dim AWS As String 'kann, glaube ich auch weg oder? Set ol = CreateObject("Outlook.Application") With ol.CreateItem(0) .To = "paul@eprise.com" .CC = "paul@eprise.de" .BCC = "" .Subject = "Arbeitsmeldung M" .body = "Arbeitsmeldung-M vom " & Application.Text(Now(), "dddd dd.mm.yyyy hh.mm") & "Uhr" .attachments.Add MyDateiName .Display End With Set ol = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Attachements
Attachments

139 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Email mit Dateianlage senden

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Attachements Attachments

139 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Attachements
Attachments