Afsendelse af sikker email
Jeg skal ha mit regneark til at afsende en mail ved udskrivning.Koden er placeret i thisworkbook og bliver også aktiveret ved udskrivning.
Normalt når jeg laver en ny mail på min arbejdsplads, har jeg udover den sædvanlige send knap, også en send sikkert knap.
Problemet er at denne knap ikke kommer frem ved aktivering af nedenstående vba kode:
Dim myOlApp As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
Set myRecipient = myitem.Recipients.Add("mail@mail.dk")
With myitem
.Subject = ""
.Body = ""
.Display
'.Send
End With
Er det muligt at få vba til at følge ens normale mail opsætning så knapperne bliver de samme?
