Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Nach dem Speichern automatisch Email versenden
zurück: Vorlage kopieren und neue Datei mit Verweise erstellen weiter: Schichtwechsel bei 4 Schichten berechnen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Snowboardguru
Gast


Verfasst am:
12. Okt 2010, 11:37
Rufname:

Nach dem Speichern automatisch Email versenden - Nach dem Speichern automatisch Email versenden

Nach oben
       Version: Office 2003

Hallo!

Gibt es eine Möglichkeit, dass beim Speichern einer Excel-Datei diese automatisch als Email an eine bestimmte Adresse versendet wird???
Niläk
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Okt 2010, 17:56
Rufname:


AW: Nach dem Speichern automatisch Email versenden - AW: Nach dem Speichern automatisch Email versenden

Nach oben
       Version: Office 2003

Hallo
Möchtest du die Exceldatei bei schliessen senden oder jedesmal wenn du den Speicherbutton drückst?
Gruss Niläk
Snowboardguru
Gast


Verfasst am:
13. Okt 2010, 12:48
Rufname:

AW: Nach dem Speichern automatisch Email versenden - AW: Nach dem Speichern automatisch Email versenden

Nach oben
       Version: Office 2003

Hallo!

Vielen Dank der Nachfrage, beim Schließen der Datei würde es natürlich ausreichen!
Niläk
Im Profil kannst Du frei den Rang ändern


Verfasst am:
13. Okt 2010, 13:43
Rufname:

AW: Nach dem Speichern automatisch Email versenden - AW: Nach dem Speichern automatisch Email versenden

Nach oben
       Version: Office 2003

Hallo
Dies wäre eine Möglichkeit beim schliessen der Datei das aktive Blatt zu senden.
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    Dim MyMessage As Object, MyOutApp As Object
    Dim SavePath As String
    Dim AWS As String
   
   Application.ScreenUpdating = False
   
    SavePath = ThisWorkbook.Path
    'Kopiert aktuelles Sheet in eine neue Mappe welche nur diese Tabelle enthält
    ActiveSheet.Copy
     'Speichert die Datei unter dem Tabellennamen und einem Zeitstempel
    ActiveWorkbook.SaveAs SavePath & "\" & Format(Now, "ddmmyy_hhmm") & ".xls"

    With ActiveWorkbook
        AWS = .FullName
        .Close
    End With
    'InitializeOutlook
    Set MyOutApp = CreateObject("Outlook.Application")
    'Nachrichtenobject erstellen
    Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
        .GetInspector
           'Mailadresse An
        .To = "entsprechende Mailadresse"
           'Hier wird die temporär gespeicherte Datei als Attachment zugefügt
        .Attachments.Add AWS
           'Hier wird die Mail nochmals angezeigt
        .Display
           'Hier wird die Mail gleich in den Postausgang gelegt
        .Send
           'Hier wird die temporäre Datei wieder gelöscht
        Kill AWS
    End With
    'MyOutApp.Quit
    Set MyOutApp = Nothing
    Set MyMessage = Nothing
   
Application.ScreenUpdating = True

End Sub
Gast



Verfasst am:
10. Jun 2011, 17:29
Rufname:

AW: Nach dem Speichern automatisch Email versenden - AW: Nach dem Speichern automatisch Email versenden

Nach oben
       Version: Office 2003

und wie mache ich es das jedesmal eine E-Mail an eine bestimmte Adresse versendet wird wenn die Excel datei gespeichert wird

nicht die Datei soll versendet werden

nur eine E-mail z.b. mit dem Betreff "Datei X aktualisiert"
Niläk
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Jun 2011, 19:47
Rufname:


AW: Nach dem Speichern automatisch Email versenden - AW: Nach dem Speichern automatisch Email versenden

Nach oben
       Version: Office 2003

Hallo
Wenn ich Dich richtig verstanden habe, meinst du bei jedem speichern ein E-Mail.
Dies kann aber mühsam werden. Willst du dies wirklich?
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim SavePath As String
    Dim AWS As String
   
    Set MyOutApp = CreateObject("Outlook.Application")
   
    Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
        .GetInspector
           'Mailadresse An
        .To = ""
           'Hier wird das Mail nochmals angezeigt
        .Display
           'Hier wird das Mail gleich in den Postausgang gelegt
       
    End With
   
End Sub


Gruss Niläk
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Automatisch komprimieren? 12 Gast 2217 11. Feb 2006, 12:23
Gast Automatisch komprimieren?
Keine neuen Beiträge Excel Formeln: nach datums eingabe automatisch das datum 14 tage später 2 Gast 922 11. Jan 2006, 10:30
bernd200 nach datums eingabe automatisch das datum 14 tage später
Keine neuen Beiträge Excel Formeln: Zeilen automatisch löschen wenn sie leer sind 1 Gast 3101 30. Dez 2005, 13:34
Hübi Zeilen automatisch löschen wenn sie leer sind
Keine neuen Beiträge Excel Formeln: Automatisch Skonto ausfüllen 4 sade 3152 28. Dez 2005, 14:11
sade Automatisch Skonto ausfüllen
Keine neuen Beiträge Excel Formeln: ersch. EIngaben in fortlaufenden zellen speichern 2 den21 610 08. Dez 2005, 11:00
steve1da ersch. EIngaben in fortlaufenden zellen speichern
Keine neuen Beiträge Excel Formeln: Summe automatisch ermitteln 2 ba 845 10. Nov 2005, 12:51
wasserballer Summe automatisch ermitteln
Keine neuen Beiträge Excel Formeln: Zellen automatisch kopieren 1 Roand 4689 27. Okt 2005, 20:27
etron795 Zellen automatisch kopieren
Keine neuen Beiträge Excel Formeln: Datum automatisch einfügen lassen ? 5 Olaf 3925 26. Aug 2005, 09:25
KingPing Datum automatisch einfügen lassen ?
Keine neuen Beiträge Excel Formeln: Automatisch immer die Werte aus letzter Spalte übernehmen??? 31 Provaeth 4031 19. Jul 2005, 13:29
ae Automatisch immer die Werte aus letzter Spalte übernehmen???
Keine neuen Beiträge Excel Formeln: Spezialfilter speichern? 2 Birsgal 1329 28. Mai 2005, 10:11
Birsgal Spezialfilter speichern?
Keine neuen Beiträge Excel Formeln: automatisches Speichern des Tabellenblatts mit Makro 6 Frank vhet 841 11. Mai 2005, 13:14
Frank vhet automatisches Speichern des Tabellenblatts mit Makro
Keine neuen Beiträge Excel Formeln: Tabellenblattname automatisch in eine Zelle uebernehmen? 3 Boris 1151 23. Apr 2005, 21:05
Boris Tabellenblattname automatisch in eine Zelle uebernehmen?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks