VB6 - VBA Изпращайте имейли, като използвате CDO обекта

Автор: lermite222

Публикувано на: 18/04/2013

Ако хост компютърът няма инсталирано приложението Outlook, можете да използвате CDO обекта, за да изпратите вашите писма.

Недостатъкът е, че с CDO трябва да се конфигурират настройките на сървъра ви, някои хостове като Gmail изискват удостоверяване (парола) и защитена връзка (SSL)

Тази демонстрация изпълнява всички необходими параметри.

 SubDEMO_EnvoiMailCDO () Dim mMessage Като обект Dim mConfig като обект Dim mChps Задайте mConfig = CreateObject ("CDO.Configuration") mConfig.Load -1 Задайте mChps = mConfig.Fields С mChps .Item ("// schemas.microsoft.com/ cdo / configuration / sendusing ") = 2" Адаптерът за управление на поща. (напр. изливане на Gmail.) => Hormail "smtp.live.com" .Импонент ("// schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" tout les serveurs. .Импонент ("// schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Вашата версия на документа е без аутентификация, .Item ("// schemas.microsoft.com/ cdo / configuration / smtpauthenticate ") =" 1 ".Item (" // schemas.microsoft.com/cdo/configuration/sendusername ") =" ".Item (" // schemas.microsoft.com/cdo / configuration / sendpassword ") =" MyCodePass "" Изпращане на запитване за връзка (SSL) .Импонент ("// schemas.microsoft.com/cdo/configuration/smtpusessl") = "true". = CreateObject ("CDO.Message") С mMessage Set .Configuration = mConfig .To = " ". От = " " .Subject = "Изпращане на поща". "" Прибавям приложението, фиширането, класификацията, изображението и т.н. "Добавяне на прикачен файл" и добавяне на нов файл. Изпращане на край с комплект mMessage = Нищо "Изпращане на съобщение за препращане, pas besoin de tou t reconfigurer, il faut toutefois recréer un nouveau 'съобщение chaque fois. Задайте mMessage = CreateObject ("CDO.Message") С mMessage Set .Configuration = mConfig .To = " " .Това е: " ". mail ".TextBody =" Ще изпратите имейл съобщение за тест за макроси "& Chr (13) _ &" и ще ви помогна ли да прочетете съобщението си. " "Добавяне на файл, фиширане, класифициране, изображение и т.н." .AddAttachment "Chemin и номенклатура на файла в менюто .Send End With Set mMessage = Нищо не е зададено mConfig = Nothing Set mChps = Nothing End Sub 

Можете да изтеглите демо файла (Excel):

Изпращайте имейли с помощта на CDO.xls