VB6 - VBA إرسال رسائل البريد الإلكتروني باستخدام كائن CDO
الكاتب: lermite222
تم النشر في: 18/04/2013
إذا لم يكن جهاز الكمبيوتر المضيف قد تم تثبيت تطبيق Outlook ، فيمكنك استخدام كائن CDO لإرسال رسائل البريد الإلكتروني.
العيب هو أنه مع CDO يجب تكوين مع إعدادات الخادم الخاص بك ، بعض المضيف مثل Gmail يتطلب المصادقة (كلمة المرور) واتصال آمن (SSL)
ينفذ هذا العرض التوضيحي جميع المعلمات الضرورية.
Sub DEMO_EnvoiMailCDO () تعتيم mMessage باسم كائن خافت mConfig باسم كائن خافت mChps تعيين mConfig = CreateObject ("CDO.Configuration") mConfig.Load -1 تعيين mChps = mConfig.Fields مع mChps .Item ("// schemas.microsoft.com/ cdo / configuration / sendusing ") = 2 'Adapter suivant votre serveur de mail. (exemple pour Gmail.) => Hormail "smtp.live.com" .Item ("// schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" "En principe، 25 fonctionne avec tout les servurs. .Item ("// schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Vou pouvez sans sans ces ces trois lignes' Mais si votre serveur demande une authentification، .Item ("// schemas.microsoft.com/ cdo / configuration / smtpauthenticate ") =" 1 ".Item (" // schemas.microsoft.com/cdo/configuration/sendusername ") =" ".Item (" // schemas.microsoft.com/cdo / configuration / sendpassword ") =" MyCodePass "" Si votre serveur demande une connexion sûre (SSL) .Item ("// schemas.microsoft.com/cdo/configuration/smtpusessl") = "true" .Update End With Set mMessage = CreateObject ("CDO.Message") مع مجموعة mMessage. التكوين = mConfig .To = " " .From = " " .Subject = "Le sujet du mail" .TextBody = "Ce mail vous est envoyer pour tester la macros de lermite "" Pour ajouter une pièce jointe، un fichier، classeur، image etc. ".AddAttachment 'Chemin et nom Complete du fichier à joindre .Send End With Set mMessage = Nothing' Pour un autre message، باس بيسوين دي تو t reconfigurer، il faut toutefois recréer un nouveau 'message à chaque fois. تعيين mMessage = CreateObject ("CDO.Message") باستخدام mMessage Set .Configuration = mConfig .To = " " .From = " " .Subject = "C'est pour le deuxième test d'envoi mail ".TextBody =" Ce mail vous est envoyer pour tester la macros de lermite "& Chr (13) _ &" et voir si le deuxième message est bien passer. " "Pour ajouter une pièce jointe، un fichier، classeur، image etc." .AddAttachment 'Chemin et nom Complete du fichier à joindre .Send End With Set mMessage = Nothing' Libère les ressources Set mConfig = Nothing Set mChps = Nothing End Sub يمكنك تنزيل الملف التجريبي (Excel):
إرسال رسائل البريد الإلكتروني باستخدام CDO.xls