VB6 - VBA Küldjön e-maileket a CDO objektum használatával

Szerző: lermite222

Megjelent: 18/04/2013

Ha a gazdagép nem rendelkezik a telepített Outlook-alkalmazással, akkor a CDO-objektumot küldheti el.

A hátránya, hogy a CDO-nál a szerver beállításokkal kell konfigurálni, néhány olyan gazdagép, mint a Gmail, hitelesítést (jelszót) és biztonságos kapcsolatot (SSL) igényel

Ez a demó végrehajtja az összes szükséges paramétert.

 Sub DEMO_EnvoiMailCDO () Dim mMessage mint objektum Dim mConfig mint objektum Dim mChps Set mConfig = CreateObject ("CDO.Configuration") mConfig.Load -1 Beállítás mChps = mConfig.Fields with mChps .Item ("// schemas.microsoft.com/ cdo / configuration / sendusing ") = 2 'Adapter suivant votre serviceur de mail. (mentesít Gmail.) => Hormail "smtp.live.com" .Item ("// schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'En principe, 25 fonctionne avec lesznek. .Item ("// schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Vous pouvez esszéer sans ces trois lignes' Tájékozódási igény és hitelesítés, .Item ("// schemas.microsoft.com/ cdo / configuration / smtpauthenticate ") =" 1 ".Item (" // schemas.microsoft.com/cdo/configuration/sendusername ") =" ".Item (" // schemas.microsoft.com/cdo / configuration / sendpassword ") =" MyCodePass "'Szavazásszolgálati igény (SSL) .Item (" // schemas.microsoft.com/cdo/configuration/smtpusessl ") =" true ". = CreateObject ("CDO.Message") Az mMessage Set segítségével. Konfiguráció = mConfig .To = " " .From = " " .Subject = "Le sujet du mail" .TextBody = "Ce mail vous est envoyer öntsük teszter la makrók de lermite” 'Pour une Ajouter pièce jointe, un fichier, classeur, kép stb' .AddAttachment 'Chemin et nom komplett du fichier ahhoz joindre .Send End With Set mMessage = semmi' Pour un autre üzenet pas besoin de tou t recfigurer, il faut toutefois recréer un nouveau üzenete à chaque fois. MMessage = CreateObject beállítása ("CDO.Message") Az mMessage Set segítségével. Konfiguráció = mConfig .To = " " .From = " " .Az objektum = "C'est pour le deuxième test d'envoi mail ".TextBody =" Ce mail vous est envoyer öntse ki a lermite "makrókat" & Chr (13) _ & "et voir si le deuxième message est bien passer." 'Pour ajouter une pièce jointe, un fichier, classeur, image stb.' .AddAttachment 'Chemin et nom full du fichier à joindre. Küldés vége Set mMessage = Semmi' Libère les ressources Set mConfig = Semmi Set mChps = Semmi vége 

Letöltheti a demo fájlt (Excel):

E-mail küldése CDO.xls segítségével