Thema Datum  Von Nutzer Rating
Antwort
18.07.2016 05:11:10 Gast21753
NotSolved
19.07.2016 09:50:48 steffesj
NotSolved
Rot Email versenden wenn jemand die Datei Abspeichert
 19.07.2016 10:00:41 steffesj
NotSolved
20.07.2016 21:57:07 Gast38110
NotSolved

Ansicht des Beitrags:
Von:
steffesj		 Datum:
19.07.2016 10:00:41		 Views:
775		 Rating:
     
Antwort:
  Ja
Thema:
Email versenden wenn jemand die Datei Abspeichert		 
Hey,
so müsste es komplett funktionieren


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim OutApp As Object
    Dim objOLMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set objOLMail = OutApp.CreateItem(0)
    With objOLMail
               
        .To = ""   'Empfänger AN
        .CC = ""
        .BCC = ""
        .Sensitivity = 0                      'Vertraulichkeit
        .Importance = 2                       'Wichtigkeit
        .Subject = ""
        .Body = Environ("Username")
        .Send                                 'Versand
        '.Display
    End With
    Set objOLMail = Nothing
    Set OutApp = Nothing
    MsgBox "E-Mail wurde erfolgreich versand.", , "ERFOLGREICH"
    
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
18.07.2016 05:11:10 Gast21753
NotSolved
19.07.2016 09:50:48 steffesj
NotSolved
Rot Email versenden wenn jemand die Datei Abspeichert
 19.07.2016 10:00:41 steffesj
NotSolved
20.07.2016 21:57:07 Gast38110
NotSolved