E-Mail aus Excel, Gmail zu verwenden

Ich versuche, eine E-Mail automatisch generiert, nachdem eine Arbeitsmappe gespeichert wird. Ich will nicht senden Sie die Arbeitsmappe in der E-Mail nur eine E-Mail Benachrichtigung an eine Liste von Leuten zu sagen, dass es einen neuen Eintrag, so dass Sie tatsächlich haben, um es zu öffnen und darauf reagieren (wenn ich könnte einen link auf den Speicherort der Tabelle, die funktionieren würde). Auch die Arbeitsmappe ist "freigegeben", so mehrere Leute Bearbeiten können, auf einmal, so dass ich nicht denke, es wird bleiben, wie die "shared" - und weiter zu aktualisieren, wenn der Download aus einer E-Mail. Über 25 Personen haben Zugriff auf diese Tabelle, und jeder kann eingeben/Bearbeiten " ein Eintrag. Letztlich möchte ich Sie senden eine E-Mail nur, wenn die Daten eingegeben/bearbeitet werden, in einer bestimmten Spalte und dann gespeichert.

Meine Agentur nutzt Gmail, aber unsere E-Mail-Adressen nicht @gmail.com in Ihnen. Stattdessen sind wir mit unserem .gov E-Mail-Adressen über gmail irgendwie. Ich bin mir nicht sicher, ob dies überhaupt relevant ist, sondern dachte, ich hätte es erwähnen. Ich habe durchsucht mehrere online-Foren, kann aber nicht scheinen, nichts zu finden.

Kennt jemand eine code, dies zu tun?

Ich bin ein Anfänger mit VBA und ich bekam die E-Mail-Teil zu arbeiten, aber ich will es E-Mail, wenn die Arbeitsmappe gespeichert wird. Dies ist der code den ich momentan verwende:

Sub CDO_Mail_Small_Text()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    '    Dim Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxx"
        .Update    'Let CDO know we have change the default configuration for this message
    End With




    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"

    With iMsg
        Set .Configuration = iConf
        .To = "[email protected]"
        .CC = ""
        .BCC = ""
        .From = """name"" <[email protected]>"
        .Subject = "test"
        .TextBody = strbody
        .Send
    End With

End Sub

Bekomme ich diesen Fehler

InformationsquelleAutor niklas24 | 2015-11-09