Электронные письма отправляются через VBA, но остаются в папке исходящих, когда я использую свойство .SentOnBehalfOfName - PullRequest
Новая
       8

Электронные письма отправляются через VBA, но остаются в папке исходящих, когда я использую свойство .SentOnBehalfOfName

0 голосов
/ 25 января 2019

В моем мировоззрении у меня есть разные почтовые ящики, и мой, и один из моего департамента.Я хочу отправлять электронные письма с адреса моего отдела, и я делаю это, используя свойство .SentOnBehalfOfName.Я делаю это из Excel, и у меня есть офис 2010.

Несмотря на то, что получатели получают электронные письма с моего адреса отдела, эти письма застряли в моем личном почтовом ящике (например, в ожидании отправки ...).Это становится проблемой, когда количество отправляемых писем превышает 30, потому что я достигаю лимита памяти.

Кто-нибудь знает, как избежать этих писем, застрявших в моем личном почтовом ящике?

Это код, который я использую для отправки писем: 

Sub MandaMail(destinatarios As String, copia As String, subject As String, strbody As String, Optional CO As String = "")

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail
    .To = destinatarios
    .CC = copia
    .BCC = CO
    .subject = subject
    .HTMLBody = strbody 
    .SentOnBehalfOfName = "mydeparmentemail@mycompany.es"
    .send    
End With

On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

Заранее спасибо

...