Comment éviter les Perspectives d'avertissement de Sécurité pour la messagerie électronique de l'automatisation - VBA

C'est une réponse partielle. J'ai fait un Wiki de la Communauté de répondre à l'attente de quelqu'un d'autre peut expliquer la dernière partie que je ne peux pas me rendre au travail.

Cette page web, http://msdn.microsoft.com/en-us/library/office/aa155754(v=office.10).aspx , explique les trois premières parties du processus. Il a été écrit en 1999 ne peut donc pas être suivies à la lettre, car il renvoie à d'anciennes versions de Windows et d'Office.

La première étape consiste à ajouter de Signature Numérique pour les Projets VBA pour votre installation d'Office même si je l'ai trouvé sous Outils Partagés plutôt que de la bureautique. Ne faites pas l'erreur de simplement ajouter de Signature Numérique pour les Projets VBA à Outlook, parce que, comme je l'ai découvert, cela signifie que vous désinstaller Word, Excel, etc.

La deuxième étape consiste à exécuter Selfcert.exe pour créer un certificat numérique dans votre propre nom.

La troisième étape est d'ouvrir l'éditeur VBA d'Outlook, sélectionnez Outils, puis le Certificat Numérique alors Choisir de signer le projet avec votre certificat.

Avec ces étapes, vous pouvez supprimer l'avertissement que Outlook contient des macros, mais cela ne supprime pas cet avertissement qu'une macro est accéder à des e-mails. Pour supprimer cet avertissement, vous avez besoin d'une quatrième étape qui consiste à placer votre certificat dans le de Confiance Magasin Autorités de certification Racine. Cette page web http://technet.microsoft.com/en-us/library/cc962065.aspx explique à propos de l'Autorité de Certification de Confiance Modèle, mais je ne peut pas utiliser correctement Microsoft Management Console à atteindre la quatrième étape.

OriginalL'auteur

Si vous n'avez pas envoyer le message immédiatement, mais juste de l'afficher et de permettre à l'utilisateur de faire des modifications (le cas échéant) et de les laisser appuyer sur le bouton envoyer d'épargne, ce serait le travail:

c'est à dire utiliser

.Display

au lieu de

.Send

OriginalL'auteur Alexander Remesch

J'ai expliqué comment vous pouvez utiliser vba pour envoyer des e-mails dans ce réponse, Vous trouverez une macro que j'utilise largement dans mon travail quotidien.

Suivantes bons conseils de @Floern, voici l'explication:

Pour insérer des images (signature que les images) vous pouvez utiliser le code suivant:

L'étape 1. Copiez ce code un coller dans le module de classe et le nom de module de classe comme "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

L'étape 2. Dans un standar module vous permettra d'élaborer votre .contenu html et instancier un objet de la classe:

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

OriginalL'auteur Dani Aya