VB6 - VBA सीडीओ ऑब्जेक्ट का उपयोग करके ईमेल भेजें

लेखक: lermite222

प्रकाशित: 18/04/2013

यदि होस्ट पीसी के पास TheOutlook एप्लिकेशन इंस्टॉल नहीं है, तो आप अपने मेल भेजने के लिए सीडीओ ऑब्जेक्ट का उपयोग कर सकते हैं।

नुकसान यह है कि सीडीओ को आपके सर्वर सेटिंग्स के साथ कॉन्फ़िगर किया जाना चाहिए, जीमेल जैसे कुछ होस्ट को प्रमाणीकरण (पासवर्ड) और एक सुरक्षित कनेक्शन (एसएसएल) की आवश्यकता होती है

यह डेमो सभी आवश्यक मापदंडों को लागू करता है।

 उप DEMO_EnvoiMailCDO () मंद mMessage ऑब्जेक्ट के रूप में मंद mConfig के रूप में मंद mChps सेट mConfig = CreateObject ("CDO.Configuration)" mConfig.Load -1 सेट mChps = mConfig mChps के साथ। cdo / कॉन्फ़िगरेशन / भ्रामक ") = 2 'एडेप्टर suivant मतरे सेवा देउर मेल। । टाउट लेस सर्वर्स। .Item ("// schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Vous pouvez Essans ses trois lignes' Mais si votre serviceure une प्रमाणिकता।, ("// schemas.microsoft.com/।" cdo / configuration / smtpauthenticate ") =" 1 "। item (" // schemas.microsoft.com/cdo/configuration/sendusername ") =" ".Item (" "schemas.microsoft.com/cdo) / कॉन्फ़िगरेशन / Sendpassword ") =" MyCodePass "'Si वोटर सेवाकर्ता डिमांड यूनि कंसेशन s )re (एसएसएल) ।Item (" // schemas.microsoft.com/cdo/configuration/smpusessl ") =" true "। सेट मैमेज के साथ समाप्त करें। = CreateObject ("CDO.Message") mMessage Set के साथ .Configuration = mononfig .To = " "। .From = " "। est envoyer डालना tester la macros de lermite "'डालो ajouter une pièce jointe, un fichier, classeur, image etc.' .AddAttachment 'Chemin et nom du fichier à joindre .Send End With Set mMessage = Nothing' ऑटम संदेश के साथ पूर्ण करें। पस बगल डे टू टी रीकंफिग्योरर, इल फूट टाउटफॉइस रिक्रियर अन नोव्यू 'संदेश आ चक फॉइस। सेट mMessage = CreateObject ("CDO.Message") mMessage सेट के साथ .Configuration = mConfig .To = " "। .From = " safe " .Subject = "C'est pour le deuxième test d'envoi। mail ".TextBody =" Ce मेल vous est envoyer pour tester la macros de lermite "& Chr (13) _ &" et voir si le deuxième message est bien passer। " 'पोर अजरूट यूनी पाइसे जॉइन्ट, अन फिचियर, क्लासेयूर, इमेज इत्यादि।'। आडट्टाचमेंट 'चेमिन एट नॉम कम्प्लीट डू फिचियर आ जाइंड्रे। सेट एंडेज के साथ समाप्त करें। कुछ भी नहीं' लिबर लेस रेसेर्स सेट mConfig = कुछ भी नहीं सेट करें mChps = कुछ भी नहीं। 

आप डेमो फ़ाइल (एक्सेल) डाउनलोड कर सकते हैं:

CDO.xls का उपयोग करके ईमेल भेजें