VB6 - VBA Pošiljanje e-pošte z uporabo predmeta CDO

Avtor: lermite222

Objavljeno dne: 18/04/2013

Če gostiteljski računalnik nima nameščene aplikacijeOutlook, lahko za pošiljanje pošte uporabljate predmet CDO.

Pomanjkljivost je, da je treba s CDO konfigurirati z nastavitvami strežnika, nekateri gostitelji, kot je Gmail, potrebujejo overjanje (geslo) in varno povezavo (SSL)

Ta demo izvedba vsebuje vse potrebne parametre.

 SubDEMO_EnvoiMailCDO () Dim mMessage As Objekt Dim mConfig Kot Objekt Dim mChps Nastavi mConfig = CreateObject ("CDO.Configuration") mConfig.Load -1 Nastavi mChps = mConfig.Fields Z mChps .Item ("// schemas.microsoft.com/ cdo / configuration / sendusing ") = 2" Vmesnik za nastavitev pošte. (npr. nalijte Gmail.) => Hormail "smtp.live.com" .Item ("// schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'Načelo, 25 naslovov tout les serveurs. .Item ("// schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Velja, da ste preverili avtentikacijo, ki jo uporabljate, .Item ("// schemas.microsoft.com/ cdo / configuration / smtpauthenticate ") =" 1 ".Item (" // schemas.microsoft.com/cdo/configuration/sendusername ") =" ".Item (" // schemas.microsoft.com/cdo / configuration / sendpassword ") =" MyCodePass "" Zahteve za povezavo s strežnikom (SSL) .Item ("// schemas.microsoft.com/cdo/configuration/smtpusessl") = "true" .Posodobi konec z nastavitvijo sporočila = CreateObject ("CDO.Message") Z mMessage Set .Configuration = mConfig .To = " " .From = " " .Subject = "Sporočilo pošte". "" Dodajte privzeto datoteko "" Dodajte privzeto datoteko in jo dodajte v datoteko. Pošlji konec z nastavitvijo mMessage = Nič "Pour un autre message, pas besoin de tou t reconfigurer, il faut toutefois recréer un nouveau 'sporočilo chaque fois. Nastavi mMessage = CreateObject ("CDO.Message") z mMessage Set .Configuration = mConfig .To = " " .From = " " .Subject = "C'est pour le deuxième test d'envoi mail ".TextBody =" Vnesi e-poštno sporočilo za tester za makro in lermite "& Chr (13) _ &" in si prejel sporočilo o prehodu. " "Dodaj novo datoteko, datoteko, povezavo, sliko itd. 

Prenesete lahko demo datoteko (Excel):

Pošljite e-poštna sporočila s CDO.xls