VB6 - VBA Gửi email bằng đối tượng CDO

Tác giả: lermite 222

Xuất bản vào ngày: 18/04/2013

Nếu PC chủ không cài đặt ứng dụngOutlook, bạn có thể sử dụng đối tượng CDO để gửi thư.

Nhược điểm là với CDO phải được cấu hình với cài đặt máy chủ của bạn, một số máy chủ như Gmail yêu cầu xác thực (mật khẩu) và kết nối an toàn (SSL)

Bản demo này thực hiện tất cả các tham số cần thiết.

 Sub DEMO_EnvoiMailCDO () Dim mMessage As Object Dim mConfig As Object Dim mChps Đặt mConfig = CreateObject ("CDO.Configuration") mConfig.Load -1 Đặt mChps = mConfig.Fields cdo / configure / sendUSE ") = 2 'Adaptor suivant Votere phục vụ de mail. (ví dụ rót Gmail tout les phục vụ. .Item ("// schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Vous pouvez essayer sans Caes tro lignes' Mais si Votere phục vụ yêu cầu xác thực, .Item ("// schemas.microsoft.com/ cou / configure / sendpassword ") =" MyCodePass "'Si Votere phục vụ yêu cầu une Connexion sûre (SSL) .Item (" // schemas.microsoft.com/cdo/configuration/smtpusessl ") =" true ".Update End With Set = CreateObject ("CDO.Message") Với mMessage Set .Configuration = mConfig .To = " ". est envoyer pour tests la macros de lermite "'Pour ajouter une pièce khớpe, un fichier, classeur, hình ảnh, v.v.' .AddAttachment 'Chemin et nom xong du fichier à joindre. Gửi kết thúc với Set pas amboin de tou t cấu hình lại, il faut toutefois recréer un nouveau 'message à chaque fois. Đặt mMessage = CreateObject ("CDO.Message") Với mMessage Set .Configuration = mConfig .To = " " .Trom = " " .Subject = "C'est pour le de lửaème test mail ".TextBody =" 'Đổ ajouter une pièce khớp, un fichier, classeur, hình ảnh, v.v.' .AddAttachment 'Chemin et nom xong du fichier à joindre. Gửi kết thúc với Set mMessage = nothing' Libère les ressource Set mConfig 

Bạn có thể tải xuống tệp demo (Excel):

Gửi email bằng CDO.xls