Mail aus Excel per VBA verschlüsseln
26.09.2016 12:36:10
Georg
ich habe ein Programm geschrieben, dass mit Mails anhand einer Outlook Vorlage mit den entsprechenden Verteiler, Betreff und Text erstellt. Soweit so gut. Kann ich es über VBA steuern, dass das Mail auch verschlüsselt ist? Ich denke da so an ".enchrypted" oder so im With Block. Geht sowas?
Ich hab im Forum dazu nur eine Diskussion von Andi und Reinhard aus 2003 gefunden. Wäre klasse, wenn mich da jemand aufgleisen könnte!
Danke und Gruß
Georg
Sub Mail_bauen()
vZeileMax = Range("B8").End(xlDown).Row
vZeilePfad = Range("B8:B" & vZeileMax + 300).Find(what:="Pfad").Row ' Def. der Zeile _
in der der Pfad steht
vZeileVorlage = Range("B8:B" & vZeileMax + 300).Find(what:="Vorlage").Row ' Def. der Zeile _
in der die Vorlage steht
vZeileTo = Range("B8:B" & vZeileMax + 300).Find(what:="an").Row ' Def. der Zeile _
in der der Verteiler steht
vZeileSubject = Range("B8:B" & vZeileMax + 300).Find(what:="Betreff").Row ' Def. der Zeile _
in der der Betreff steht
'XX -- Mail aus Vorlage (.ost) erstellen
vPfad = ActiveWorkbook.Sheets("Tabelle1").Range(vSpalte & vZeilePfad) & _
ActiveWorkbook.Sheets("Tabelle1").Range(vSpalte & vZeileVorlage) ' Definition _
des Pfades+Namen der .ost
Set OutApp = CreateObject("Outlook.Application") ' Outlook _
starten
Set vNachricht = OutApp.CreateItemFromTemplate(vPfad) ' .ost aufrufen
With vNachricht
.To = Range(vSpalte & vZeileTo)
.Subject = Range(vSpalte & vZeileSubject)
.display
End With
Set OutApp = Nothing
Set vNachricht = Nothing
End Sub