[vateras131]

Mam problem z wysyłką maili z VBA.

Mam taki kod jak poniżej - to tak właściwie szkielet na potrzeby testów:

Sub wysylka()

Dim aplikacjaoutlooka As Object
Dim mail As Object

Set aplikacjaoutlooka = CreateObject("OUTLOOK.Application")

Set mail = aplikacja_outlooka.CreateItem(0)

With mail
.To = "abc" - tutaj na potrzeby testow wpisuje swoj adres
.SentOnBehalfOfName = "xyz" - tutaj wpisuje adres e-mail ktory ma być widoczny jako nadawaca
.Subject = "Jakis tam temat"
.Body = "To jest tresc wiadomosci"

.Send
End With

End Sub

Teraz napiszę w czym problem:
W korespondencji wewnętrznej musimy obowiązkowo posługiwać się podpisem cyfrowym. Z tego względu mam tę opcję domyśle włączoną. Natomiast jeśli zdarzy się sytuacja, że muszę napisać do klienta i chcę z pewnych względów odpisać z innego adresu e-mail niż osobisty (co odpowiada temu parametrowi SentOnBehalfOfName powyżej) to muszę ten podpis ręcznie odklikać w obszarze "Uprawnienia" podczas edycji wiadomości. Z podpisem niestety taka wiadomość nie wyjdzie bo Outlook wywali błąd, że certyfikat jest nieprawidłowy dla tego adresu.

I teraz pytanie. W jaki sposób mogę tę akcję wykonać z poziomu VBA? Wolałbym nie wyłączać podpisu w ustawieniach dla wszystkich wiadomości bo na 99% później zapomnę włączyć.

#vba

[DwaNiedzwiedzie]

@vateras131: Dodaj w środku klauzuli With:

.PropertyAccessor.SetProperty "[http://schemas.microsoft.com/mapi/proptag/0x6E010003",](http://schemas.microsoft.com/mapi/proptag/0x6E010003",) 0

[DwaNiedzwiedzie]

@vateras131: Warto też dodać skróty do opcji szyfrowania i podpisu cyfrowego na pasku "szybki dostęp" w oknie wiadomości, jeżeli często z nich korzystasz.

[vateras131]

@DwaNiedzwiedzie:
Pięknie dziękuję, działa!

Ten skrót mam już dawno dodany :)