Wie zu vermeiden, die Outlook Sicherheitswarnung für E-Mail-automation - VBA

Dies ist ein Teil der Antwort. Ich habe es eine Community-Wiki-Antwort, in der Erwartung, dass jemand anderes erklären kann, das Letzte Teil was ich nicht bekommen, um zu arbeiten.

Dieser web-Seite, http://msdn.microsoft.com/en-us/library/office/aa155754(v=office.10).aspx , erklärt, die ersten drei Teile des Prozesses. Es wurde geschrieben im Jahr 1999, so lässt sich nicht genau eingehalten werden, denn es handelt sich um alte Versionen von Windows und Office.

Der erste Schritt ist das hinzufügen Digitale Signatur für VBA-Projekte, um Ihre Office-installation zwar fand ich es unter Shared Tools eher als Office-Tools. Machen Sie nicht den Fehler, nur das hinzufügen Digitale Signatur für VBA-Projekte zu Outlook, weil, als ich entdeckte, das bedeutet, dass Sie deinstallieren, Word, Excel, etc.

Den zweiten Schritt ausführen Selfcert.exe erstellen Sie ein digitales Zertifikat in Ihrem Namen.

Der Dritte Schritt ist das öffnen des Outlook-VBA-editor, wählen Sie Tools und dann Digitales Zertifikat, Wählen Sie dann signieren Sie das Projekt mit Ihrem Zertifikat.

Mit diesen Schritten können Sie unterdrücken die Warnung, dass die Outlook-Makros enthält, aber diese nicht unterdrücken, dass die Warnung, dass ein makro ist der Zugriff auf E-Mails. Unterdrücken der Warnung, Sie brauchen einen vierten Schritt legen Sie Ihr Zertifikat innerhalb der "Vertrauenswürdige Stammzertifizierungsstellen". Diese web-Seite http://technet.microsoft.com/en-us/library/cc962065.aspx erklärt, über die Zertifizierungsstelle Trust-Modell, aber ich kann nicht erfolgreich nutzen Microsoft Management Console erreichen Sie den vierten Schritt.

InformationsquelleAutor

Wenn Sie nicht senden Sie die Nachricht sofort, sondern nur zeigen Sie es und lassen Sie die Benutzer machen änderungen (wenn überhaupt) und lassen Sie Sie, drücken Sie die senden-Taste selbst, das funktionieren würde:

also

.Display

statt

.Send

InformationsquelleAutor Alexander Remesch

Habe ich erklärt, wie Sie mithilfe von vba, emails zu versenden, in diesem Antwort finden Sie ein makro, dass ich ausführlich in meiner täglichen Arbeit.

Folgenden Empfehlungen von @Floern, hier ist die Erklärung:

Beim einfügen von Bildern (Signatur, Bilder) Sie können den folgenden code verwenden:

Schritt 1. Kopieren Sie diesen code ein fügen Sie in der Klasse Modul und den Namen, die Klasse-Modul wie "MailOptions"

Private Message As CDO.Message
Private Attachment, Expression, Matches, FilenameMatch, i

Public Sub PrepareMessageWithEmbeddedImages(ByVal FromAddress, ByVal ToAddress, ByVal Subject, ByVal HtmlContent)

    Set Expression = CreateObject("VBScript.RegExp")
    Expression.Pattern = "\<EMBEDDEDIMAGE\:(.+?)\>"
    Expression.IgnoreCase = True
    Expression.Global = False 'one match at a time

    Set Message = New CDO.Message
    Message.From = FromAddress
    Message.To = ToAddress
    Message.Subject = Subject

    'Find matches in email body, incrementally increasing the auto-assigned attachment identifiers
    i = 1
    While Expression.Test(HtmlContent)
        FilenameMatch = Expression.Execute(HtmlContent).Item(0).SubMatches(0)
        Set Attachment = Message.AddAttachment(FilenameMatch)
        Attachment.Fields.Item("urn:schemas:mailheader:Content-ID") = "<attachedimage" & i & ">" ' set an ID we can refer to in HTML
        Attachment.Fields.Item("urn:schemas:mailheader:Content-Disposition") = "inline" ' "hide" the attachment
        Attachment.Fields.Update
        HtmlContent = Expression.Replace(HtmlContent, "cid:attachedimage" & i) ' update the HTML to refer to the actual attachment
        i = i + 1
    Wend

    Message.HTMLBody = HtmlContent
End Sub

Public Sub SendMessageBySMTP(ByVal SmtpServer, ByVal SmtpUsername, ByVal SmtpPassword, ByVal UseSSL)
    Dim Configuration
    Set Configuration = CreateObject("CDO.Configuration")
    Configuration.Load -1 ' CDO Source Defaults
    Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SmtpServer
    'Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SmtpPort
    Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

    If SmtpUsername <> "" Then
        Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SmtpUsername
        Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SmtpPassword
    End If
    Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = UseSSL
    Configuration.Fields.Update
    Set Message.Configuration = Configuration
    Message.Send
End Sub

Schritt 2. In einem standar-Modul erhalten Sie aufwändig Ihre .html-Inhalt und instanziieren Sie ein Objekt aus der Klasse:

public sub send_mail()

Dim signature As String
dim mail_sender as new MailOptions 'here you are instantiating an object from the class module created previously
dim content as string

signature = "C:\Users\your_user\Documents\your_signature.png"

content = "<font face=""verdana"" color=""black"">This is some text!</font>"
content = content & "<img src=""<EMBEDDEDIMAGE:" & signature & " >"" />"

mail_sender.PrepareMessageWithEmbeddedImages _
                    FromAddress:="[email protected]", _
                    ToAddress:="[email protected]", _
                    Subject:="your_subject", _
                    HtmlContent:=content

'your_Smtp_Server, for example: RelayServer.Contoso.com
correos.SendMessageBySMTP "your_Smtp_Server", "your_network_user_account", "your_network_user_account_password", False

end sub

InformationsquelleAutor Dani Aya