VB6 - VBA Надсилати повідомлення електронної пошти за допомогою об'єкта CDO

Автор: lermite222

Опубліковано: 18/04/2013

Якщо на головному комп'ютері не встановлено додатокOutlook, ви можете використовувати об'єкт CDO для надсилання повідомлень.

Недолік полягає в тому, що при налаштуванні CDO потрібно налаштувати сервер, деякі з них, наприклад Gmail, вимагають автентифікації (пароля) і безпечного з'єднання (SSL)

Ця демонстрація реалізує всі необхідні параметри.

 Sub DEMO_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" .Item ("// schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" tout les serveurs. .Item ("// 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 ") =" істина ". = CreateObject ("CDO.Message") З набором mMessage .Configuration = mConfig .To = " " .От = " " .Subject = "Лист повідомлення" .TextBody = "Ce mail vous Ви можете скористатися тестом для макроконтролю "" Ви можете скористатися цим файлом, скористатися ним, кластером, зображенням і т.д. ".AddAttachment" Chemin et nom complet du fichier à joindre .Send End With Set mMessage = Nothing 'Pour un autre message, pas besoin de tou t reconfigurer, il faut toutefois recréer ООН nouveau 'повідомлення chaque fois. Встановити mMessage = CreateObject ("CDO.Message") За допомогою mMessage Set .Configuration = mConfig .To = " " .От = " " .Subject = "C'est pour le deuxième test d'envoi mail ".TextBody =" Відправити повідомлення про тести для макрокоманди "& Chr (13) _ &" і "Ви отримаєте повідомлення про перехід". "Залишити файл, додати, кластер, зображення тощо." .AddAttachment "Відправити закінчення з набором mMessage = Нічого" Відсутній параметр Set mConfig = Нічого не встановлено mChps = Нічого не завершено 

Ви можете завантажити демонстраційний файл (Excel):

Надсилайте електронні листи за допомогою CDO.xls