Thema Datum  Von Nutzer Rating
Antwort
14.09.2016 10:24:53 jmetz21
NotSolved
Blau Nachricht bei Mailversand auf Verschlüsselt setzen
 14.09.2016 13:27:41 SJ
Solved
14.09.2016 14:32:29 jmetz21
NotSolved
14.09.2016 14:36:38 SJ
NotSolved
14.09.2016 14:41:57 jmetz21
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
14.09.2016 13:27:41		 Views:
2229		 Rating:
     
Antwort:
 Nein
Thema:
Nachricht bei Mailversand auf Verschlüsselt setzen

Hallo,

hiermit kannst du deine Mails wahlweise signieren und/oder verschlüsseln:

Option Explicit

Public Sub send_mail()
    Dim oApp As Object
    Dim oItem As Object
     
    Set oApp = CreateObject("Outlook.Application")
    Set oItem = oApp.CreateItem(0)
       
    With oItem
       .Subject = "Eine verschlüsselte Mail"
       .To = "jemand@einedomain.de"
       .Body = "Text der verschlüsselten Mail"
       Call sign_encrypt_mail(oItem, True, True)
       .Display
    End With
End Sub

Private Sub sign_encrypt_mail(ByRef oMail As Object, ByVal sign As Boolean, ByVal encrypt As Boolean)
    Const PR_SECURITY_FLAGS = "http://schemas.microsoft.com/mapi/proptag/0x6E010003"
    
    Dim ulFlags As Variant
    
        If sign Then
        ulFlags = ulFlags Or &H2
    End If
    
    If encrypt Then
        ulFlags = ulFlags Or &H1
    End If
    
    oMail.PropertyAccessor.SetProperty PR_SECURITY_FLAGS, ulFlags
End Sub

Gruß

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
14.09.2016 10:24:53 jmetz21
NotSolved
Blau Nachricht bei Mailversand auf Verschlüsselt setzen
 14.09.2016 13:27:41 SJ
Solved
14.09.2016 14:32:29 jmetz21
NotSolved
14.09.2016 14:36:38 SJ
NotSolved
14.09.2016 14:41:57 jmetz21
NotSolved