vba - отправка электронной почты от другого пользователя

Question

Мой клиент хочет распространять excel/vba своим клиентам, и vba автоматически отправит электронные письма.

Возможно, отправителю должна быть какая-то другая учетная запись, а не учетная запись внешнего вида лица, использующего vba, поскольку в электронном письме может быть частное лицо. Это действительно возможно?

Другое дело - печально известное всплывающее предупреждение при автоматизации таких задач. Я слышал, что Application.SendKeys не всегда работает, когда компьютер заблокирован.

Как работает CDO для этой задачи?

Answer 1

На ваш первоначальный вопрос, который вы можете использовать MailItem.SentOnBehalfOfName с Outlook,

На безопасности предупреждение стандартные два решения для Outlook, являются:
1) Используйте Clickyes
2) Установить Outlook Redemption

Answer 2

Вам не нужно использовать Outlook для отправки электронной почты. Как вы спрашиваете, CDO работает без использования Outlook.

Вот несколько кодов, которые помогут вам начать работу.

Public Sub SendEmail(Subject As String, Body As String, ToPerson as String) 

Dim iCfg As Object 
Dim iMsg As Object 

Set iCfg = CreateObject("CDO.Configuration") 
Set iMsg = CreateObject("CDO.Message") 

With iCfg.Fields 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email-account" 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = "account@domain.com" 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 
    .Update 
End With 

With iMsg 
    .Configuration = iCfg 
    .Subject = Subject 
    .TextBody = Body 
    .To = ToPerson 
    .Send 
End With 

Set iMsg = Nothing 
Set iCfg = Nothing 

End Sub