• 0
Hisham_wz

تابع : ارسال بريد من الاكسيس مباشرة

سؤال

هذا الموضوع هو استكمالا لموضوع ارسال البريد من الأكسيس مباشرة على هذا الرابط

ارسال البريد من الأكسيس مباشرة

تم التحرير بواسطة المشرفة زهره للعلم والفائدة

------------------------------------------------------------------

السلام عليكــم ورحمـة الله وبركاتــه ،،

بالنسبة الي الاخوة الذين يعانون من مشكلة اللغة العربية في ارسال البريد ؛ برجاء اتباع الاتي :

المشكلة ليست مشكلة كود ولكنها مشكلة ويندوز ؛ وعلي حسب المعلومات التي جمعتها عن هذا الموضوع فانه موضوع واجه الكثير من مستخدمي لغة "php" ومستخدمي لغة "asp" وجيمع الحلول التي حصلت عليها تتطابق مع الكود المرفق في البرنامج في جسم الرسالة

يبقي كده الاحتمال التاني وهو مشكلة وجود ملفين او تلاته في الريجيستري الخاص بالوييندوز تسبب هذه المشكلة ؛ ولو لاحظ الاعضاء اغلب من وجهتهم المشكلة يستخدمون ويندوز xp وقليل جدا فيستا

قم بالذهاب الي الامر "تشغيل " او اذا كنت تستخدم الانجليزية "run"

قم بكتابة الاتي " regedit" للدخول الي الريجيستري

قم بالذهاب الي القائمة "edit" ثم اختار البحث "find" ثم قم بالبحث عن القيمة " C_28591.NLS"

C_28591.NLS

بعد ان تجدها قم بحذفها ؛ ثم قم بالبحث مرة اخري عنها واذا وجدتها احذفها ؛ حتي تتاكد انها ليست موجود لديك مرة اخري

قم باعادة تشغيل الجهاز ثم قم بارسال بريد مرة اخري وسوف تجد ان مشكلة اللغة العربية اتحلت باذن الله ؛ مع العلم ان الرسائل التي قمت بارسالها مسبقا سوف تجد لن تقرأ كما هي .

وهذه هي النتيجة بالنسبة لجهازي الذي يعاني من هذه المشكلة :

post-19193-1253823971_thumb.jpg

post-19193-1253823979_thumb.jpg

كرما ليس امرا من الاعضاء المهتمين بالموضوع التجربة والرد علينا بالنتيجة سواء ايجابية او سلبية ؛ ومشكورين مقدما .

لا تنسي اذا كنت من مستخدمي ياهو ميل ان تقوم باختيار الترميز مرة اخري من داخل الرسالة ؛ وهذه ليست مشكلة الكود ولكنها مشكلة الياهو نفسه .

سؤال سوف يطرح نفسه بعد النتيجة من الاعضاء : هل المشكلة يجب تصحيحها في جهاز المرسل ولا جهاز المستقبل ؟؟؟؟؟

بالتوفيق

تم تعديل بواسطه zahrah
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

83 إجابة على هذا السؤال .

  • 0

أخى الكريم Hisham_wz

شكراً لك أولاً على مواصلة البحث فى المشكلة .. وجارى التجربة.

والسؤال الذى يطرح نفسه فى مكانه .. وسأحاول أن أجرب الموضوع مع أحد الأصدقاء.

ولكن ........ هل حذف هذه القيمة لن يؤثر على أداء أشياء أخرى فى الويندوز ؟؟؟ !!!!

تحياتى

محمد ندا

تمت التجربة بنجاح عدا موضوع الرسالة وإسم المرسل فى العنوان (لكن فى داخل الرسالة يكتب عربى زى الفل).

بقيت الإجابة على السؤال

ولكن ........ هل حذف هذه القيمة لن يؤثر على أداء أشياء أخرى فى الويندوز ؟؟؟ !!!!

ثم باقى التجربة على أجهزة أخرى.

تحياتى

ندا

تم تعديل بواسطه Mohamed Nada
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم ورحمة الله

اخي الكريم محمد ندا : لا تقلق من حذف هذه القيم :D

وفينا بالنتيجة

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
وللمرة الأخيرة لا يوجد حل لموضوع الترميز في بعض حسابات البريد مثل الياهو إلا تغيير ترميز الرسالة يدويا من خلال قائمة select message encoding

بارك الله بك اخي هشام على هذا الحل الرائع

ولكن لا نريد ابدا للمستخدم العادي ان يعبث بإعدادات الويندوز او الريجستري لأن في ذلك خطورة على النظام اذا لم يكن المستخدم متمكنا من ما سيفعله فقد يحذف مفاتيح لا علاقة لها بهذا الموضوع وبذلك يقوم بإتلاف النظام كاملا بدون قصد منه لهذا رأينا ان نوجد الحل البرمجي بدون العبث بإعدادات الويندوز او الريجستري

اخي الفاضل محمد صالح

وجميع الأخوة الكرام المشاركين في هذا الموضوع

تم حل لمشكلة الترميز في بريد الياهو وهو بإضافة هذه التعليمة وهي خاصة بالترميز لجسم الرساله

.BodyPart.Charset = "UTF-8"

السبب في ذلك انه عند فحص مصدر الصفحة لبريد الـ Yahoo.com وجدنا ان الترميز الإفتراضي هو UTF-8

ولهذا سوف نستغني عن التعليمة التالية الموجوده في رأس الرساله

<head><meta http-equiv='Content-Type' content='text/html; charset=windows-1256' /></head>

ليكون صيغته النهائية بهذا الشكل

.HTMLBody = "<div dir='rtl' align='right' style='font-size:25px'>عزيزي : <font style='color:red'>" & Me.toname & "</font><br /><br />" & Replace(Me.msg, vbNewLine, "<br />") & "<br />مع تحيات :<br /><font style='color:green'>" & Me.myname & "</font></div>"

وسنقوم بإفراغ الذاكرة في نهاية الكود

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

ثم نقوم بالتأكد من ذلك وستكون التجربه على ( النسخة رقم 2 من البرنامج )

ملاحظة : لا تنسى ان تضع بريد الـ Gmail والرقم السري لأنه منزوع من هذه النسخه

post-15367-1253826358_thumb.gif

post-15367-1253826382_thumb.gif

post-15367-1253826539_thumb.gif

post-15367-1253826562_thumb.gif

post-15367-1253826585_thumb.gif

البرنامج بعد التعديل

mas_mailer_v2_UP.rar

بالتوفيق لكم جميعا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تدخل الدكتورة أم عهود فى الموضوع ... يعد بنجاح فى التعديل .... ولكن طبعاً أنا قمت بحذف القيمة المذكورة فى حل أخونا هشام

على العموم .... جارى التجربة والرد

محمد ندا

تم تعديل بواسطه Mohamed Nada
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخواني الكرام

السلام عليكم ورحمة الله وبركاته

هذه جميع التعليمات والخيارات وتقارير الأخطاء والقيم الواجب معرفتها عن كائن CDO

قد اقوم عما قريب بعمل وحدة نمطية Handle Cdo Errors للأخطاء التي تحدث اثناء التشغيل او ارسال الرساله ويتم دمجها مع البرنامج بعد ترجمة الأخطاء الى اللغة العربية .

علما بأنها موجوده هنا في التعليمات بإسم CdoErrors type module

راجع المصدر في آخر المشاركه

cdosys.dll
/******************************************************************************
Name = CDO
ContainingFile = C:\WINNT\system32\cdosys.dll
GUID = {CD000000-8B95-11D1-82DB-00C04FB1625D}
MajorVersion = 1
MinorVersion = 0
-------------------------------------------------------------------------------
Declarations.Count = 0
Constants.Count = 27
CoClasses.Count = 7
Interfaces.Count = 16
Records.Count = 0
Unions.Count = 0
IntrinsicAliases.Count = 0
TypeInfoCount = 50
CustomDataCollection = 2
******************************************************************************/
===============================================================================
Declarations.Count = 0
===============================================================================
===============================================================================
Constants.Count = 27
===============================================================================
//-----------------------------------------------------------------------------
//CdoCalendar type module
var cdoTimeZoneIDURN = urn:schemas:calendar:timezoneid;
//-----------------------------------------------------------------------------
//CdoCharset type module
var cdoBIG5 = big5;
var cdoEUC_JP = euc-jp;
var cdoEUC_KR = euc-kr;
var cdoGB2312 = gb2312;
var cdoISO_2022_JP = iso-2022-jp;
var cdoISO_2022_KR = iso-2022-kr;
var cdoISO_8859_1 = iso-8859-1;
var cdoISO_8859_2 = iso-8859-2;
var cdoISO_8859_3 = iso-8859-3;
var cdoISO_8859_4 = iso-8859-4;
var cdoISO_8859_5 = iso-8859-5;
var cdoISO_8859_6 = iso-8859-6;
var cdoISO_8859_7 = iso-8859-7;
var cdoISO_8859_8 = iso-8859-8;
var cdoISO_8859_9 = iso-8859-9;
var cdoKOI8_R = koi8-r;
var cdoShift_JIS = shift-jis;
var cdoUS_ASCII = us-ascii;
var cdoUTF_7 = utf-7;
var cdoUTF_8 = utf-8;
//-----------------------------------------------------------------------------
//CdoConfigSource type enum
var cdoDefaults = -1;//Load all applicable default values from both Outlook Express (OE) and

Internet Information Services.
var cdoIIS = 1;//Load configuration default values from the local Internet Information Service.
var cdoOutlookExpress = 2;//Load configuration values from the default identify of the default

Outlook Express account.
//-----------------------------------------------------------------------------
//CdoConfiguration type module
var cdoAutoPromoteBodyParts =

http://schemas.microsoft.com/cdo/configuration/autopromotebodyparts;
var cdoFlushBuffersOnWrite = http://schemas.microsoft.com/cdo/configuration/flushbuffersonwrite;
var cdoHTTPCookies = http://schemas.microsoft.com/cdo/configuration/httpcookies;
var cdoLanguageCode = http://schemas.microsoft.com/cdo/configuration/languagecode;
var cdoNNTPAccountName = http://schemas.microsoft.com/cdo/configuration/nntpaccountname;
var cdoNNTPAuthenticate = http://schemas.microsoft.com/cdo/configuration/nntpauthenticate;
var cdoNNTPConnectionTimeout =

http://schemas.microsoft.com/cdo/configuration/nntpconnectiontimeout;
var cdoNNTPServer = http://schemas.microsoft.com/cdo/configuration/nntpserver;
var cdoNNTPServerPickupDirectory =

http://schemas.microsoft.com/cdo/configuration/nntpserverpickupdirectory;
var cdoNNTPServerPort = http://schemas.microsoft.com/cdo/configuration/nntpserverport;
var cdoNNTPUseSSL = http://schemas.microsoft.com/cdo/configuration/nntpusessl;
var cdoPostEmailAddress = http://schemas.microsoft.com/cdo/configuration/postemailaddress;
var cdoPostPassword = http://schemas.microsoft.com/cdo/configuration/postpassword;
var cdoPostUserName = http://schemas.microsoft.com/cdo/configuration/postusername;
var cdoPostUserReplyEmailAddress =

http://schemas.microsoft.com/cdo/configuration/postuserreplyemailaddress;
var cdoPostUsingMethod = http://schemas.microsoft.com/cdo/configuration/postusing;
var cdoSaveSentItems = http://schemas.microsoft.com/cdo/configuration/savesentitems;
var cdoSendEmailAddress = http://schemas.microsoft.com/cdo/configuration/sendemailaddress;
var cdoSendPassword = http://schemas.microsoft.com/cdo/configuration/sendpassword;
var cdoSendUserName = http://schemas.microsoft.com/cdo/configuration/sendusername;
var cdoSendUserReplyEmailAddress =

http://schemas.microsoft.com/cdo/configuration/senduserreplyemailaddress;
var cdoSendUsingMethod = http://schemas.microsoft.com/cdo/configuration/sendusing;
var cdoSMTPAccountName = http://schemas.microsoft.com/cdo/configuration/smtpaccountname;
var cdoSMTPAuthenticate = http://schemas.microsoft.com/cdo/configuration/smtpauthenticate;
var cdoSMTPConnectionTimeout =

http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout;
var cdoSMTPServer = http://schemas.microsoft.com/cdo/configuration/smtpserver;
var cdoSMTPServerPickupDirectory =

http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory;
var cdoSMTPServerPort = http://schemas.microsoft.com/cdo/configuration/smtpserverport;
var cdoSMTPUseSSL = http://schemas.microsoft.com/cdo/configuration/smtpusessl;
var cdoURLGetLatestVersion = http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion;
var cdoURLProxyBypass = http://schemas.microsoft.com/cdo/configuration/urlproxybypass;
var cdoURLProxyServer = http://schemas.microsoft.com/cdo/configuration/urlproxyserver;
var cdoUseMessageResponseText =

http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext;
//-----------------------------------------------------------------------------
//CdoContentTypeValues type module
var cdoGif = image/gif;
var cdoJpeg = image/jpeg;
var cdoMessageExternalBody = message/external-body;
var cdoMessagePartial = message/partial;
var cdoMessageRFC822 = message/rfc822;
var cdoMultipartAlternative = multipart/alternative;
var cdoMultipartDigest = multipart/digest;
var cdoMultipartMixed = multipart/mixed;
var cdoMultipartRelated = multipart/related;
var cdoTextHTML = text/html;
var cdoTextPlain = text/plain;
//-----------------------------------------------------------------------------
//CdoDSNOptions type enum
var cdoDSNDefault = 0;//No DSN commands are issued.
var cdoDSNNever = 1;//No DSNs are issued.
var cdoDSNFailure = 2;//Return an DSN if delivery fails.
var cdoDSNSuccess = 4;//Return a DSN if delivery succeeds.
var cdoDSNDelay = 8;//Return a DSN if delivery is delayed.
var cdoDSNSuccessFailOrDelay = 14;//Return a DSN if delivery succeeds, fails, or is delayed.
//-----------------------------------------------------------------------------
//CdoEncodingType type module
var cdo7bit = 7bit;
var cdo8bit = 8bit;
var cdoBase64 = base64;
var cdoBinary = binary;
var cdoMacBinHex40 = mac-binhex40;
var cdoQuotedPrintable = quoted-printable;
var cdoUuencode = uuencode;
//-----------------------------------------------------------------------------
//CdoErrors type module
var CDO_E_UNCAUGHT_EXCEPTION = -2147220991;
var CDO_E_NOT_OPENED = -2147220990;
var CDO_E_UNSUPPORTED_DATASOURCE = -2147220989;
var CDO_E_INVALID_PROPERTYNAME = -2147220988;
var CDO_E_PROP_UNSUPPORTED = -2147220987;
var CDO_E_INACTIVE = -2147220986;
var CDO_E_NO_SUPPORT_FOR_OBJECTS = -2147220985;
var CDO_E_NOT_AVAILABLE = -2147220984;
var CDO_E_NO_DEFAULT_DROP_DIR = -2147220983;
var CDO_E_SMTP_SERVER_REQUIRED = -2147220982;
var CDO_E_NNTP_SERVER_REQUIRED = -2147220981;
var CDO_E_RECIPIENT_MISSING = -2147220980;
var CDO_E_FROM_MISSING = -2147220979;
var CDO_E_SENDER_REJECTED = -2147220978;
var CDO_E_RECIPIENTS_REJECTED = -2147220977;
var CDO_E_NNTP_POST_FAILED = -2147220976;
var CDO_E_SMTP_SEND_FAILED = -2147220975;
var CDO_E_CONNECTION_DROPPED = -2147220974;
var CDO_E_FAILED_TO_CONNECT = -2147220973;
var CDO_E_INVALID_POST = -2147220972;
var CDO_E_AUTHENTICATION_FAILURE = -2147220971;
var CDO_E_INVALID_CONTENT_TYPE = -2147220970;
var CDO_E_LOGON_FAILURE = -2147220969;
var CDO_E_HTTP_NOT_FOUND = -2147220968;
var CDO_E_HTTP_FORBIDDEN = -2147220967;
var CDO_E_HTTP_FAILED = -2147220966;
var CDO_E_MULTIPART_NO_DATA = -2147220965;
var CDO_E_INVALID_ENCODING_FOR_MULTIPART = -2147220964;
var CDO_E_PROP_NOT_FOUND = -2147220962;
var CDO_E_INVALID_SEND_OPTION = -2147220960;
var CDO_E_INVALID_POST_OPTION = -2147220959;
var CDO_E_NO_PICKUP_DIR = -2147220958;
var CDO_E_NOT_ALL_DELETED = -2147220957;
var CDO_E_PROP_READONLY = -2147220953;
var CDO_E_PROP_CANNOT_DELETE = -2147220952;
var CDO_E_BAD_DATA = -2147220951;
var CDO_E_PROP_NONHEADER = -2147220950;
var CDO_E_INVALID_CHARSET = -2147220949;
var CDO_E_ADOSTREAM_NOT_BOUND = -2147220948;
var CDO_E_CONTENTPROPXML_NOT_FOUND = -2147220947;
var CDO_E_CONTENTPROPXML_WRONG_CHARSET = -2147220946;
var CDO_E_CONTENTPROPXML_PARSE_FAILED = -2147220945;
var CDO_E_CONTENTPROPXML_CONVERT_FAILED = -2147220944;
var CDO_E_NO_DIRECTORIES_SPECIFIED = -2147220943;
var CDO_E_DIRECTORIES_UNREACHABLE = -2147220942;
var CDO_E_BAD_SENDER = -2147220941;
var CDO_E_SELF_BINDING = -2147220940;
var CDO_E_ARGUMENT1 = -2147205120;
var CDO_E_ARGUMENT2 = -2147205119;
var CDO_E_ARGUMENT3 = -2147205118;
var CDO_E_ARGUMENT4 = -2147205117;
var CDO_E_ARGUMENT5 = -2147205116;
var CDO_E_NOT_FOUND = -2146644475;
var CDO_E_INVALID_ENCODING_TYPE = -2146644451;
//-----------------------------------------------------------------------------
//CdoEventStatus type enum
var cdoRunNextSink = 0;//Proceed to run the next sink.
var cdoSkipRemainingSinks = 1;//Do not notify (skip) any remaining sinks for the event (i.e. this sink

has consumed the event).
//-----------------------------------------------------------------------------
//CdoExchange type module
var cdoSensitivity = http://schemas.microsoft.com/exchange/sensitivity;
//-----------------------------------------------------------------------------
//CdoHTTPMail type module
var cdoAttachmentFilename = urn:schemas:httpmail:attachmentfilename;
var cdoBcc = urn:schemas:httpmail:bcc;
var cdoCc = urn:schemas:httpmail:cc;
var cdoContentDispositionType = urn:schemas:httpmail:content-disposition-type;
var cdoContentMediaType = urn:schemas:httpmail:content-media-type;
var cdoDate = urn:schemas:httpmail:date;
var cdoDateReceived = urn:schemas:httpmail:datereceived;
var cdoFrom = urn:schemas:httpmail:from;
var cdoHasAttachment = urn:schemas:httpmail:hasattachment;
var cdoHTMLDescription = urn:schemas:httpmail:htmldescription;
var cdoImportance = urn:schemas:httpmail:importance;
var cdoNormalizedSubject = urn:schemas:httpmail:normalizedsubject;
var cdoPriority = urn:schemas:httpmail:priority;
var cdoReplyTo = urn:schemas:httpmail:reply-to;
var cdoSender = urn:schemas:httpmail:sender;
var cdoSubject = urn:schemas:httpmail:subject;
var cdoTextDescription = urn:schemas:httpmail:textdescription;
var cdoThreadTopic = urn:schemas:httpmail:thread-topic;
var cdoTo = urn:schemas:httpmail:to;
//-----------------------------------------------------------------------------
//cdoImportanceValues type enum
var cdoLow = 0;
var cdoNormal = 1;
var cdoHigh = 2;
//-----------------------------------------------------------------------------
//CdoInterfaces type module
var cdoAdoStream = _Stream;
var cdoIBodyPart = IBodyPart;
var cdoIConfiguration = IConfiguration;
var cdoIDataSource = IDataSource;
var cdoIMessage = IMessage;
var cdoIStream = IStream;
//-----------------------------------------------------------------------------
//CdoMailHeader type module
var cdoApproved = urn:schemas:mailheader:approved;
var cdoComment = urn:schemas:mailheader:comment;
var cdoContentBase = urn:schemas:mailheader:content-base;
var cdoContentDescription = urn:schemas:mailheader:content-description;
var cdoContentDisposition = urn:schemas:mailheader:content-disposition;
var cdoContentId = urn:schemas:mailheader:content-id;
var cdoContentLanguage = urn:schemas:mailheader:content-language;
var cdoContentLocation = urn:schemas:mailheader:content-location;
var cdoContentTransferEncoding = urn:schemas:mailheader:content-transfer-encoding;
var cdoContentType = urn:schemas:mailheader:content-type;
var cdoControl = urn:schemas:mailheader:control;
var cdoDisposition = urn:schemas:mailheader:disposition;
var cdoDispositionNotificationTo = urn:schemas:mailheader:disposition-notification-to;
var cdoDistribution = urn:schemas:mailheader:distribution;
var cdoExpires = urn:schemas:mailheader:expires;
var cdoFollowupTo = urn:schemas:mailheader:followup-to;
var cdoInReplyTo = urn:schemas:mailheader:in-reply-to;
var cdoLines = urn:schemas:mailheader:lines;
var cdoMessageId = urn:schemas:mailheader:message-id;
var cdoMIMEVersion = urn:schemas:mailheader:mime-version;
var cdoNewsgroups = urn:schemas:mailheader:newsgroups;
var cdoOrganization = urn:schemas:mailheader:organization;
var cdoOriginalRecipient = urn:schemas:mailheader:original-recipient;
var cdoPath = urn:schemas:mailheader:path;
var cdoPostingVersion = urn:schemas:mailheader:posting-version;
var cdoReceived = urn:schemas:mailheader:received;
var cdoReferences = urn:schemas:mailheader:references;
var cdoRelayVersion = urn:schemas:mailheader:relay-version;
var cdoReturnPath = urn:schemas:mailheader:return-path;
var cdoReturnReceiptTo = urn:schemas:mailheader:return-receipt-to;
var cdoSummary = urn:schemas:mailheader:summary;
var cdoThreadIndex = urn:schemas:mailheader:thread-index;
var cdoXMailer = urn:schemas:mailheader:x-mailer;
var cdoXref = urn:schemas:mailheader:xref;
var cdoXUnsent = urn:schemas:mailheader:x-unsent;
var cdoXFidelity = urn:schemas:mailheader:x-cdostreamhighfidelity;
//-----------------------------------------------------------------------------
//CdoMessageStat type enum
var cdoStatSuccess = 0;//Success. Proceed to deliver message.
var cdoStatAbortDelivery = 2;//Discard message and do not deliver.
var cdoStatBadMail = 3;//Do not deliver message and place it in the bad mail location.
//-----------------------------------------------------------------------------
//CdoMHTMLFlags type enum
var cdoSuppressNone = 0;//Download all resources referred to in elements within the resource at

the specified URI. (not recursive)
var cdoSuppressImages = 1;//Do not download resources referred to in IMG elements.
var cdoSuppressBGSounds = 2;//Do not download resources referred to in BGSOUND elements.
var cdoSuppressFrames = 4;//Do not download resources referred to in FRAME elements.
var cdoSuppressObjects = 8;//Do not download resources referred to in OBJECT elements.
var cdoSuppressStyleSheets = 16;//Do not download resources referred to in LINK elements.
var cdoSuppressAll = 31;//Do not download any resources referred to from within the page.
//-----------------------------------------------------------------------------
//CdoNamespace type module
var cdoNSConfiguration = http://schemas.microsoft.com/cdo/configuration/;
var cdoNSContacts = urn:schemas:contacts:;
var cdoNSHTTPMail = urn:schemas:httpmail:;
var cdoNSMailHeader = urn:schemas:mailheader:;
var cdoNSNNTPEnvelope = http://schemas.microsoft.com/cdo/nntpenvelope/;
var cdoNSSMTPEnvelope = http://schemas.microsoft.com/cdo/smtpenvelope/;
//-----------------------------------------------------------------------------
//CdoNNTPEnvelope type module
var cdoNewsgroupList = http://schemas.microsoft.com/cdo/nntpenvelope/newsgrouplist;
var cdoNNTPProcessing = http://schemas.microsoft.com/cdo/nntpenvelope/nntpprocessing;
//-----------------------------------------------------------------------------
//CdoNNTPProcessingField type enum
var cdoPostMessage = 1;//Post the message.
var cdoProcessControl = 2;//Send message through process control.
var cdoProcessModerator = 4;//Send message to moderator.
//-----------------------------------------------------------------------------
//CdoPostUsing type enum
var cdoPostUsingPickup = 1;// Post the message using the local NNTP Service pickup directory.
var cdoPostUsingPort = 2;// Post the message using the NNTP protocol over the network.
//-----------------------------------------------------------------------------
//cdoPriorityValues type enum
var cdoPriorityNonUrgent = -1;
var cdoPriorityNormal = 0;
var cdoPriorityUrgent = 1;
//-----------------------------------------------------------------------------
//CdoProtocolsAuthentication type enum
var cdoAnonymous = 0;//Perform no authentication (anonymous)
var cdoBasic = 1;//Use the basic (clear text) authentication mechanism.
var cdoNTLM = 2;//Use the NTLM authentication mechanism
//-----------------------------------------------------------------------------
//CdoReferenceType type enum
var cdoRefTypeId = 0;//The reference paramter contains a value for the Content-ID header. The

HTML body refers to the resource using this Content-ID header
var cdoRefTypeLocation = 1;//The reference parameter contains a value for the Content-Location

MIME header. The HTML body refers to this resource using this message-relative URL.
//-----------------------------------------------------------------------------
//CdoSendUsing type enum
var cdoSendUsingPickup = 1;//Send message using the local SMTP service pickup directory.
var cdoSendUsingPort = 2;//Send the message using the SMTP protocol over the network.
//-----------------------------------------------------------------------------
//cdoSensitivityValues type enum
var cdoSensitivityNone = 0;
var cdoPersonal = 1;
var cdoPrivate = 2;
var cdoCompanyConfidential = 3;
//-----------------------------------------------------------------------------
//CdoSMTPEnvelope type module
var cdoArrivalTime = http://schemas.microsoft.com/cdo/smtpenvelope/arrivaltime;
var cdoClientIPAddress = http://schemas.microsoft.com/cdo/smtpenvelope/clientipaddress;
var cdoMessageStatus = http://schemas.microsoft.com/cdo/smtpenvelope/messagestatus;
var cdoPickupFileName = http://schemas.microsoft.com/cdo/smtpenvelope/pickupfilename;
var cdoRecipientList = http://schemas.microsoft.com/cdo/smtpenvelope/recipientlist;
var cdoSenderEmailAddress =

http://schemas.microsoft.com/cdo/smtpenvelope/senderemailaddress;
//-----------------------------------------------------------------------------
//CdoTimeZoneId type enum
var cdoUTC = 0;//(UTC) Universal Coordinated Time
var cdoGMT = 1;//(GMT) Greenwich Mean Time; Dublin, Edinburgh, London
var cdoLisbon = 2;//(GMT+01:00) Lisbon, Warsaw
var cdoParis = 3;//(GMT+01:00) Paris, Madrid
var cdoBerlin = 4;//(GMT+01:00) Berlin, Stockholm, Rome, Bern, Brussels, Vienna
var cdoEasternEurope = 5;//(GMT+02:00) Eastern Europe
var cdoPrague = 6;//(GMT+01:00) Prague
var cdoAthens = 7;//(GMT+02:00) Athens, Helsinki, Istanbul
var cdoBrasilia = 8;//(GMT-03:00) Brasilia
var cdoAtlanticCanada = 9;//(GMT-04:00) Atlantic Time (Canada)
var cdoEastern = 10;//(GMT-05:00) Eastern Time (US & Canada)
var cdoCentral = 11;//(GMT-06:00) Central Time (US & Canada)
var cdoMountain = 12;//(GMT-07:00) Mountain Time (US & Canada)
var cdoPacific = 13;//(GMT-08:00) Pacific Time (US & Canada); Tijuana
var cdoAlaska = 14;//(GMT-09:00) Alaska
var cdoHawaii = 15;//(GMT-10:00) Hawaii
var cdoMidwayIsland = 16;//(GMT-11:00) Midway Island, Samoa
var cdoWellington = 17;//(GMT+12:00) Wellington, Auckland
var cdoBrisbane = 18;//(GMT+10:00) Brisbane, Melbourne, Sydney
var cdoAdelaide = 19;//(GMT+09:30) Adelaide
var cdoTokyo = 20;//(GMT+09:00) Tokyo, Osaka, Sapporo, Seoul, Yakutsk
var cdoHongKong = 21;//(GMT+08:00) Hong Kong, Perth, Singapore, Taipei
var cdoBangkok = 22;//(GMT+07:00) Bangkok, Jakarta, Hanoi
var cdoBombay = 23;//(GMT+05:30) Bombay, Calcutta, Madras, New Delhi, Colombo
var cdoAbuDhabi = 24;//(GMT+04:00) Abu Dhabi, Muscat, Tbilisi, Kazan, Volgograd
var cdoTehran = 25;//(GMT+03:30) Tehran
var cdoBaghdad = 26;//(GMT+03:00) Baghdad, Kuwait, Nairobi, Riyadh
var cdoIsrael = 27;//(GMT+02:00) Israel
var cdoNewfoundland = 28;//(GMT-03:30) Newfoundland
var cdoAzores = 29;//(GMT-01:00) Azores, Cape Verde Is.
var cdoMidAtlantic = 30;//(GMT-02:00) Mid-Atlantic
var cdoMonrovia = 31;//(GMT) Monrovia, Casablanca
var cdoBuenosAires = 32;//(GMT-03:00) Buenos Aires, Georgetown
var cdoCaracas = 33;//(GMT-04:00) Caracas, La Paz
var cdoIndiana = 34;//(GMT-05:00) Indiana (East)
var cdoBogota = 35;//(GMT-05:00) Bogota, Lima
var cdoSaskatchewan = 36;//(GMT-06:00) Saskatchewan
var cdoMexicoCity = 37;//(GMT-06:00) Mexico City, Tegucigalpa
var cdoArizona = 38;//(GMT-07:00) Arizona
var cdoEniwetok = 39;//(GMT-12:00) Eniwetok, Kwajalein
var cdoFiji = 40;//(GMT+12:00) Fiji, Kamchatka, Marshall Is.
var cdoMagadan = 41;//(GMT+11:00) Magadan, Solomon Is., New Caledonia
var cdoHobart = 42;//(GMT+10:00) Hobart
var cdoGuam = 43;//(GMT+10:00) Guam, Port Moresby, Vladivostok
var cdoDarwin = 44;//(GMT+09:30) Darwin
var cdoBeijing = 45;//(GMT+08:00) Beijing, Chongqing, Urumqi
var cdoAlmaty = 46;//(GMT+06:00) Almaty, Dhaka
var cdoIslamabad = 47;//(GMT+05:00) Islamabad, Karachi, Sverdlovsk, Tashkent
var cdoKabul = 48;//(GMT+04:30) Kabul
var cdoCairo = 49;//(GMT+02:00) Cairo
var cdoHarare = 50;//(GMT+02:00) Harare, Pretoria
var cdoMoscow = 51;//(GMT+03:00) Moscow, St. Petersburg
var cdoInvalidTimeZone = 52;
===============================================================================
CoClasses.Count = 7
===============================================================================
//-----------------------------------------------------------------------------
//Configuration implements IConfiguration type coclass
//prid = "CDO.Configuration"
//guid = {CD000002-8B95-11D1-82DB-00C04FB1625D}
FUNC Configuration.AddRef() return UI4
PROPERTYGET Configuration.Fields return Fields:External(ADODB)//Returns the Fields collection

for the object
FUNC Configuration.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as

lcid, I4 as rgdispid) return VOID
FUNC Configuration.GetInterface(BSTR as Interface) return DISPATCH//Returns the specified

interface on the object
FUNC Configuration.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC Configuration.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC Configuration.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC Configuration.Load(CdoConfigSource as LoadFrom, [BSTR as URL default= ]) return

VOID//Loads the specified configuration
FUNC Configuration.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC Configuration.Release() return UI4
//-----------------------------------------------------------------------------
//DropDirectory implements IDropDirectory type coclass
//prid = "CDO.DropDirectory"
//guid = {CD000004-8B95-11D1-82DB-00C04FB1625D}
FUNC DropDirectory.AddRef() return UI4
FUNC DropDirectory.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as

lcid, I4 as rgdispid) return VOID
FUNC DropDirectory.GetMessages([BSTR as DirName default= ]) return IMessages//Returns a

collection of messages contained in the specified directory on the file system. Default is SMTP drop

directory.
FUNC DropDirectory.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC DropDirectory.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC DropDirectory.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC DropDirectory.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC DropDirectory.Release() return UI4
//-----------------------------------------------------------------------------
//Message implements IMessage type coclass
//prid = "CDO.Message"
//guid = {CD000001-8B95-11D1-82DB-00C04FB1625D}
FUNC Message.AddAttachment(BSTR as URL, [BSTR as UserName default= ], [BSTR as

Password default= ]) return IBodyPart//Adds an attachment (BodyPart) to the message
FUNC Message.AddRef() return UI4
FUNC Message.AddRelatedBodyPart(BSTR as URL, BSTR as Reference, CdoReferenceType as

ReferenceType, [BSTR as UserName default= ], [BSTR as Password default= ]) return IBodyPart//Adds

a BodyPart object with content referenced within the text/html portion of the message body
PROPERTYGET Message.Attachments return IBodyParts//Returns the message's Attachments

collection
PROPERTYGET Message.AutoGenerateTextBody return BOOL//Specifies whether a text/plain

alternate representation should automatically be generated from the text/html part of the message

body
PROPERTYPUT Message.AutoGenerateTextBody return BOOL//Specifies whether a text/plain

alternate representation should automatically be generated from the text/html part of the message

body
PROPERTYGET Message.BCC return BSTR//The intended blind carbon copy (BCC header)

recipients
PROPERTYPUT Message.BCC return BSTR//The intended blind carbon copy (BCC header)

recipients
PROPERTYGET Message.BodyPart return IBodyPart//Returns the IBodyPart interface on the object
PROPERTYGET Message.CC return BSTR//The intended secondary (carbon copy) recipients
PROPERTYPUT Message.CC return BSTR//The intended secondary (carbon copy) recipients
PROPERTYGET Message.Configuration return IConfiguration//The object's associated

Configuration object
PROPERTYPUT Message.Configuration return IConfiguration//The object's associated

Configuration object
PROPERTYPUTREF Message.Configuration return IConfiguration//The object's associated

Configuration object
FUNC Message.CreateMHTMLBody(BSTR as URL, [CdoMHTMLFlags as Flags default= 0],

[BSTR as UserName default= ], [BSTR as Password default= ]) return VOID//Creates an MHTML-

formatted message body using the contents at the specified URL
PROPERTYGET Message.DataSource return IDataSource//Returns the IDataSource interface on the

object
PROPERTYGET Message.DSNOptions return CdoDSNOptions//The delivery status notification

options for the message
PROPERTYPUT Message.DSNOptions return CdoDSNOptions//The delivery status notification

options for the message
PROPERTYGET Message.EnvelopeFields return Fields:External(ADODB)//Returns the transport

envelope Fields collection for the message (transport event sinks only)
PROPERTYGET Message.Fields return Fields:External(ADODB)//Returns the Fields collection for

the message
PROPERTYGET Message.FollowUpTo return BSTR//The recipient to which follow up messages

should be sent
PROPERTYPUT Message.FollowUpTo return BSTR//The recipient to which follow up messages

should be sent
FUNC Message.Forward() return IMessage//Returns a Message object that can be used to

forward the message
PROPERTYGET Message.From return BSTR//The principle recipients from which the message is

sent
PROPERTYPUT Message.From return BSTR//The principle recipients from which the message is

sent
FUNC Message.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as lcid, I4

as rgdispid) return VOID
FUNC Message.GetInterface(BSTR as Interface) return DISPATCH//Returns the specified

interface on the object
FUNC Message.GetStream() return _Stream:External(ADODB)//Returns a Stream object

containing the message in serialized format
FUNC Message.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC Message.GetTypeInfoCount(UINT as pctinfo) return VOID
PROPERTYGET Message.HTMLBody return BSTR//The text/html portion of the message body
PROPERTYPUT Message.HTMLBody return BSTR//The text/html portion of the message body
PROPERTYGET Message.HTMLBodyPart return IBodyPart//Returns the BodyPart object (IBodyPart

interface) containing the text/html portion of the message body
FUNC Message.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
PROPERTYGET Message.Keywords return BSTR//The keywords for the message
PROPERTYPUT Message.Keywords return BSTR//The keywords for the message
PROPERTYGET Message.MDNRequested return BOOL//Specifies whether or not mail delivery

notifications should be sent when the message is received
PROPERTYPUT Message.MDNRequested return BOOL//Specifies whether or not mail delivery

notifications should be sent when the message is received
PROPERTYGET Message.MimeFormatted return BOOL//Specifies whether or not the message is to

be formatted using MIME (True) or UUEncode (False)
PROPERTYPUT Message.MimeFormatted return BOOL//Specifies whether or not the message is to

be formatted using MIME (True) or UUEncode (False)
PROPERTYGET Message.Newsgroups return BSTR//The names of newsgroups (NewsGroups

header) to which the message is to be posted
PROPERTYPUT Message.Newsgroups return BSTR//The names of newsgroups (NewsGroups

header) to which the message is to be posted
PROPERTYGET Message.Organization return BSTR//The organization of the sender
PROPERTYPUT Message.Organization return BSTR//The organization of the sender
FUNC Message.Post() return VOID//Post the message using the method specified in the

associated Configuration object
FUNC Message.PostReply() return IMessage//Returns a Message object that can be used to post

a reply to the message
FUNC Message.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
PROPERTYGET Message.ReceivedTime return DATE//Returns the time the message was received
FUNC Message.Release() return UI4
FUNC Message.Reply() return IMessage//Returns a Message object that can be used to reply to

the message
FUNC Message.ReplyAll() return IMessage//Returns a Message object that can be used to post a

reply to all recipients of the message
PROPERTYGET Message.ReplyTo return BSTR//The addresses (Reply-To header) to which to reply
PROPERTYPUT Message.ReplyTo return BSTR//The addresses (Reply-To header) to which to reply
FUNC Message.Send() return VOID//Send the message using the method specified in the

associated Configuration object
PROPERTYGET Message.Sender return BSTR//The sender of the message
PROPERTYPUT Message.Sender return BSTR//The sender of the message
PROPERTYGET Message.SentOn return DATE//The date on which the message was sent
PROPERTYGET Message.Subject return BSTR//The subject (Subject header) of the message
PROPERTYPUT Message.Subject return BSTR//The subject (Subject header) of the message
PROPERTYGET Message.TextBody return BSTR//The text/plain portion of the message body
PROPERTYPUT Message.TextBody return BSTR//The text/plain portion of the message body
PROPERTYGET Message.TextBodyPart return IBodyPart//Returns the BodyPart object (IBodyPart

interface) containing the text/plain part of the message body
PROPERTYGET Message.To return BSTR//The principle (To header) recipients of the message
PROPERTYPUT Message.To return BSTR//The principle (To header) recipients of the message
//-----------------------------------------------------------------------------
//NNTPEarlyConnector implements INNTPEarlyScriptConnector type coclass
//prid = "CDO.NNTPEarlyConnector"
//guid = {CD000011-8B95-11D1-82DB-00C04FB1625D}
FUNC NNTPEarlyConnector.AddRef() return UI4
FUNC NNTPEarlyConnector.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames,

UI4 as lcid, I4 as rgdispid) return VOID
FUNC NNTPEarlyConnector.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return

VOID
FUNC NNTPEarlyConnector.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC NNTPEarlyConnector.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC NNTPEarlyConnector.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC NNTPEarlyConnector.Release() return UI4
//-----------------------------------------------------------------------------
//NNTPFinalConnector implements INNTPFinalScriptConnector type coclass
//prid = "CDO.NNTPFinalConnector"
//guid = {CD000010-8B95-11D1-82DB-00C04FB1625D}
FUNC NNTPFinalConnector.AddRef() return UI4
FUNC NNTPFinalConnector.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames,

UI4 as lcid, I4 as rgdispid) return VOID
FUNC NNTPFinalConnector.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC NNTPFinalConnector.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC NNTPFinalConnector.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC NNTPFinalConnector.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC NNTPFinalConnector.Release() return UI4
//-----------------------------------------------------------------------------
//NNTPPostConnector implements INNTPPostScriptConnector type coclass
//prid = "CDO.NNTPPostConnector"
//guid = {CD000009-8B95-11D1-82DB-00C04FB1625D}
FUNC NNTPPostConnector.AddRef() return UI4
FUNC NNTPPostConnector.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames,

UI4 as lcid, I4 as rgdispid) return VOID
FUNC NNTPPostConnector.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC NNTPPostConnector.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC NNTPPostConnector.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC NNTPPostConnector.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC NNTPPostConnector.Release() return UI4
//-----------------------------------------------------------------------------
//SMTPConnector implements ISMTPScriptConnector type coclass
//prid = "CDO.SMTPConnector"
//guid = {CD000008-8B95-11D1-82DB-00C04FB1625D}
FUNC SMTPConnector.AddRef() return UI4
FUNC SMTPConnector.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as

lcid, I4 as rgdispid) return VOID
FUNC SMTPConnector.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC SMTPConnector.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC SMTPConnector.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC SMTPConnector.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC SMTPConnector.Release() return UI4
===============================================================================
Interfaces.Count = 16
===============================================================================
//-----------------------------------------------------------------------------
//IBodyPart type :dispinterface
//guid = {CD000021-8B95-11D1-82DB-00C04FB1625D}
FUNC IBodyPart.AddBodyPart([I4 as Index default= -1]) return IBodyPart//Adds a body part to

the object's BodyParts collection
FUNC IBodyPart.AddRef() return UI4
PROPERTYGET IBodyPart.BodyParts return IBodyParts//Returns the object's BodyParts collection
PROPERTYGET IBodyPart.Charset return BSTR//The character set of the body part text content (not

applicable for non-text content types)
PROPERTYPUT IBodyPart.Charset return BSTR//The character set of the body part text content (not

applicable for non-text content types)
PROPERTYGET IBodyPart.ContentClass return BSTR//The content class for the body part's content
PROPERTYPUT IBodyPart.ContentClass return BSTR//The content class for the body part's content
PROPERTYGET IBodyPart.ContentClassName return BSTR//The friendly name for the body part's

content class
PROPERTYPUT IBodyPart.ContentClassName return BSTR//The friendly name for the body part's

content class
PROPERTYGET IBodyPart.ContentMediaType return BSTR//The content media type portion of the

body part's content type
PROPERTYPUT IBodyPart.ContentMediaType return BSTR//The content media type portion of the

body part's content type
PROPERTYGET IBodyPart.ContentTransferEncoding return BSTR//The encoding mechanism for

the body part's content
PROPERTYPUT IBodyPart.ContentTransferEncoding return BSTR//The encoding mechanism for

the body part's content
PROPERTYGET IBodyPart.DataSource return IDataSource//Returns the IDataSource interface on

the object
PROPERTYGET IBodyPart.Fields return Fields:External(ADODB)//Returns the Fields collection for

the body part
PROPERTYGET IBodyPart.FileName return BSTR//Returns the value of the filename parameter for

the content-disposition MIME header
FUNC IBodyPart.GetDecodedContentStream() return _Stream:External(ADODB)//Returns a

Stream object containing the body part content in serialized, decoded format
FUNC IBodyPart.GetEncodedContentStream() return _Stream:External(ADODB)//Returns a

Stream object containing the body part content in serialized, encoded format
FUNC IBodyPart.GetFieldParameter(BSTR as FieldName, BSTR as Parameter) return

BSTR//Returns the specified parameter from the body part's specified MIME header
FUNC IBodyPart.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as lcid, I4

as rgdispid) return VOID
FUNC IBodyPart.GetInterface(BSTR as Interface) return DISPATCH//Returns the specified

interface on the object
FUNC IBodyPart.GetStream() return _Stream:External(ADODB)//Returns a Stream object

containing the complete body part in serialized, encoded format
FUNC IBodyPart.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC IBodyPart.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC IBodyPart.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
PROPERTYGET IBodyPart.Parent return IBodyPart//Returns the parent object in the body part

hierarchy
FUNC IBodyPart.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC IBodyPart.Release() return UI4
FUNC IBodyPart.SaveToFile(BSTR as FileName) return VOID//Saves the body part contents to

the specified file
//-----------------------------------------------------------------------------
//IBodyParts type :dispinterface
//guid = {CD000023-8B95-11D1-82DB-00C04FB1625D}
PROPERTYGET IBodyParts._NewEnum return UNKNOWN
FUNC IBodyParts.Add([I4 as Index default= -1]) return IBodyPart//Adds a BodyPart object to the

collection at the specified index, and returns the newly added object
FUNC IBodyParts.AddRef() return UI4
PROPERTYGET IBodyParts.Count return I4//Returns the number of BodyPart objects in the

collection
FUNC IBodyParts.Delete(VARIANT as varBP) return VOID//Deletes the specified BodyPart object

from the collection. Can use index or object reference
FUNC IBodyParts.DeleteAll() return VOID//Deletes all BodyPart objects in the collection
FUNC IBodyParts.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as lcid,

I4 as rgdispid) return VOID
FUNC IBodyParts.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC IBodyParts.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC IBodyParts.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
PROPERTYGET IBodyParts.Item(I4 as Index) return IBodyPart//Returns the specified BodyPart

object from the collection
FUNC IBodyParts.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC IBodyParts.Release() return UI4
//-----------------------------------------------------------------------------
//IConfiguration type :dispinterface
//guid = {CD000022-8B95-11D1-82DB-00C04FB1625D}
FUNC IConfiguration.AddRef() return UI4
PROPERTYGET IConfiguration.Fields return Fields:External(ADODB)//Returns the Fields collection

for the object
FUNC IConfiguration.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as

lcid, I4 as rgdispid) return VOID
FUNC IConfiguration.GetInterface(BSTR as Interface) return DISPATCH//Returns the specified

interface on the object
FUNC IConfiguration.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC IConfiguration.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC IConfiguration.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC IConfiguration.Load(CdoConfigSource as LoadFrom, [BSTR as URL default= ]) return

VOID//Loads the specified configuration
FUNC IConfiguration.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC IConfiguration.Release() return UI4
//-----------------------------------------------------------------------------
//IDataSource type :dispinterface
//guid = {CD000029-8B95-11D1-82DB-00C04FB1625D}
PROPERTYGET IDataSource.ActiveConnection return _Connection:External(ADODB)//Not

Implemented. Reserved for future use
FUNC IDataSource.AddRef() return UI4
FUNC IDataSource.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as lcid,

I4 as rgdispid) return VOID
FUNC IDataSource.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC IDataSource.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC IDataSource.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
PROPERTYGET IDataSource.IsDirty return BOOL//Indicates whether or not the local data has been

changed since the last save or bind operation
PROPERTYPUT IDataSource.IsDirty return BOOL//Indicates whether or not the local data has been

changed since the last save or bind operation
FUNC IDataSource.Open(BSTR as SourceURL, [DISPATCH as ActiveConnection default= null],

[ConnectModeEnum as Mode default= 0], [RecordCreateOptionsEnum as CreateOptions default= 0],

[RecordOpenOptionsEnum as Options default= 0], [BSTR as UserName default= ], [BSTR as

Password default= ]) return VOID//Not implemented. Reserved for future use
FUNC IDataSource.OpenObject(UNKNOWN as Source, BSTR as InterfaceName) return

VOID//Binds to and opens data from the specified object
FUNC IDataSource.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC IDataSource.Release() return UI4
FUNC IDataSource.Save() return VOID//Saves data into the currently bound object
FUNC IDataSource.SaveTo(BSTR as SourceURL, [DISPATCH as ActiveConnection default=

null], [ConnectModeEnum as Mode default= 0], [RecordCreateOptionsEnum as CreateOptions

default= 0], [RecordOpenOptionsEnum as Options default= 0], [BSTR as UserName default= ], [BSTR

as Password default= ]) return VOID//Not Implemented. Reserved for future use
FUNC IDataSource.SaveToContainer(BSTR as ContainerURL, [DISPATCH as ActiveConnection

default= null], [ConnectModeEnum as Mode default= 0], [RecordCreateOptionsEnum as

CreateOptions default= 0], [RecordOpenOptionsEnum as Options default= 0], [BSTR as UserName

default= ], [BSTR as Password default= ]) return VOID//Not Implemented. Reserved for future use
FUNC IDataSource.SaveToObject(UNKNOWN as Source, BSTR as InterfaceName) return

VOID//Binds to and saves data into the specified object
PROPERTYGET IDataSource.Source return UNKNOWN//Returns the currently bound object
PROPERTYGET IDataSource.SourceClass return BSTR//Returns the name (type) of the interface

originally used to bind the object
PROPERTYGET IDataSource.SourceURL return BSTR//Not Implemented. Reserved for future use
//-----------------------------------------------------------------------------
//IDropDirectory type :dispinterface
//guid = {CD000024-8B95-11D1-82DB-00C04FB1625D}
FUNC IDropDirectory.AddRef() return UI4
FUNC IDropDirectory.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as

lcid, I4 as rgdispid) return VOID
FUNC IDropDirectory.GetMessages([BSTR as DirName default= ]) return IMessages//Returns a

collection of messages contained in the specified directory on the file system. Default is SMTP drop

directory.
FUNC IDropDirectory.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC IDropDirectory.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC IDropDirectory.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC IDropDirectory.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC IDropDirectory.Release() return UI4
//-----------------------------------------------------------------------------
//IGetInterface type :interface
//guid = {CD0FF000-8B95-11D1-82DB-00C04FB1625D}
FUNC IGetInterface.GetInterface(BSTR as Interface) return DISPATCH
FUNC IGetInterface.GetInterfaceInner(BSTR as Interface) return DISPATCH
//-----------------------------------------------------------------------------
//IMessage type :dispinterface
//guid = {CD000020-8B95-11D1-82DB-00C04FB1625D}
FUNC IMessage.AddAttachment(BSTR as URL, [BSTR as UserName default= ], [BSTR as

Password default= ]) return IBodyPart//Adds an attachment (BodyPart) to the message
FUNC IMessage.AddRef() return UI4
FUNC IMessage.AddRelatedBodyPart(BSTR as URL, BSTR as Reference, CdoReferenceType

as ReferenceType, [BSTR as UserName default= ], [BSTR as Password default= ]) return

IBodyPart//Adds a BodyPart object with content referenced within the text/html portion of the

message body
PROPERTYGET IMessage.Attachments return IBodyParts//Returns the message's Attachments

collection
PROPERTYGET IMessage.AutoGenerateTextBody return BOOL//Specifies whether a text/plain

alternate representation should automatically be generated from the text/html part of the message

body
PROPERTYPUT IMessage.AutoGenerateTextBody return BOOL//Specifies whether a text/plain

alternate representation should automatically be generated from the text/html part of the message

body
PROPERTYGET IMessage.BCC return BSTR//The intended blind carbon copy (BCC header)

recipients
PROPERTYPUT IMessage.BCC return BSTR//The intended blind carbon copy (BCC header)

recipients
PROPERTYGET IMessage.BodyPart return IBodyPart//Returns the IBodyPart interface on the object
PROPERTYGET IMessage.CC return BSTR//The intended secondary (carbon copy) recipients
PROPERTYPUT IMessage.CC return BSTR//The intended secondary (carbon copy) recipients
PROPERTYGET IMessage.Configuration return IConfiguration//The object's associated

Configuration object
PROPERTYPUT IMessage.Configuration return IConfiguration//The object's associated

Configuration object
PROPERTYPUTREF IMessage.Configuration return IConfiguration//The object's associated

Configuration object
FUNC IMessage.CreateMHTMLBody(BSTR as URL, [CdoMHTMLFlags as Flags default= 0],

[BSTR as UserName default= ], [BSTR as Password default= ]) return VOID//Creates an MHTML-

formatted message body using the contents at the specified URL
PROPERTYGET IMessage.DataSource return IDataSource//Returns the IDataSource interface on the

object
PROPERTYGET IMessage.DSNOptions return CdoDSNOptions//The delivery status notification

options for the message
PROPERTYPUT IMessage.DSNOptions return CdoDSNOptions//The delivery status notification

options for the message
PROPERTYGET IMessage.EnvelopeFields return Fields:External(ADODB)//Returns the transport

envelope Fields collection for the message (transport event sinks only)
PROPERTYGET IMessage.Fields return Fields:External(ADODB)//Returns the Fields collection for

the message
PROPERTYGET IMessage.FollowUpTo return BSTR//The recipient to which follow up messages

should be sent
PROPERTYPUT IMessage.FollowUpTo return BSTR//The recipient to which follow up messages

should be sent
FUNC IMessage.Forward() return IMessage//Returns a Message object that can be used to

forward the message
PROPERTYGET IMessage.From return BSTR//The principle recipients from which the message is

sent
PROPERTYPUT IMessage.From return BSTR//The principle recipients from which the message is

sent
FUNC IMessage.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as lcid, I4

as rgdispid) return VOID
FUNC IMessage.GetInterface(BSTR as Interface) return DISPATCH//Returns the specified

interface on the object
FUNC IMessage.GetStream() return _Stream:External(ADODB)//Returns a Stream object

containing the message in serialized format
FUNC IMessage.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC IMessage.GetTypeInfoCount(UINT as pctinfo) return VOID
PROPERTYGET IMessage.HTMLBody return BSTR//The text/html portion of the message body
PROPERTYPUT IMessage.HTMLBody return BSTR//The text/html portion of the message body
PROPERTYGET IMessage.HTMLBodyPart return IBodyPart//Returns the BodyPart object

(IBodyPart interface) containing the text/html portion of the message body
FUNC IMessage.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
PROPERTYGET IMessage.Keywords return BSTR//The keywords for the message
PROPERTYPUT IMessage.Keywords return BSTR//The keywords for the message
PROPERTYGET IMessage.MDNRequested return BOOL//Specifies whether or not mail delivery

notifications should be sent when the message is received
PROPERTYPUT IMessage.MDNRequested return BOOL//Specifies whether or not mail delivery

notifications should be sent when the message is received
PROPERTYGET IMessage.MimeFormatted return BOOL//Specifies whether or not the message is to

be formatted using MIME (True) or UUEncode (False)
PROPERTYPUT IMessage.MimeFormatted return BOOL//Specifies whether or not the message is to

be formatted using MIME (True) or UUEncode (False)
PROPERTYGET IMessage.Newsgroups return BSTR//The names of newsgroups (NewsGroups

header) to which the message is to be posted
PROPERTYPUT IMessage.Newsgroups return BSTR//The names of newsgroups (NewsGroups

header) to which the message is to be posted
PROPERTYGET IMessage.Organization return BSTR//The organization of the sender
PROPERTYPUT IMessage.Organization return BSTR//The organization of the sender
FUNC IMessage.Post() return VOID//Post the message using the method specified in the

associated Configuration object
FUNC IMessage.PostReply() return IMessage//Returns a Message object that can be used to

post a reply to the message
FUNC IMessage.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
PROPERTYGET IMessage.ReceivedTime return DATE//Returns the time the message was received
FUNC IMessage.Release() return UI4
FUNC IMessage.Reply() return IMessage//Returns a Message object that can be used to reply to

the message
FUNC IMessage.ReplyAll() return IMessage//Returns a Message object that can be used to post

a reply to all recipients of the message
PROPERTYGET IMessage.ReplyTo return BSTR//The addresses (Reply-To header) to which to reply
PROPERTYPUT IMessage.ReplyTo return BSTR//The addresses (Reply-To header) to which to reply
FUNC IMessage.Send() return VOID//Send the message using the method specified in the

associated Configuration object
PROPERTYGET IMessage.Sender return BSTR//The sender of the message
PROPERTYPUT IMessage.Sender return BSTR//The sender of the message
PROPERTYGET IMessage.SentOn return DATE//The date on which the message was sent
PROPERTYGET IMessage.Subject return BSTR//The subject (Subject header) of the message
PROPERTYPUT IMessage.Subject return BSTR//The subject (Subject header) of the message
PROPERTYGET IMessage.TextBody return BSTR//The text/plain portion of the message body
PROPERTYPUT IMessage.TextBody return BSTR//The text/plain portion of the message body
PROPERTYGET IMessage.TextBodyPart return IBodyPart//Returns the BodyPart object (IBodyPart

interface) containing the text/plain part of the message body
PROPERTYGET IMessage.To return BSTR//The principle (To header) recipients of the message
PROPERTYPUT IMessage.To return BSTR//The principle (To header) recipients of the message
//-----------------------------------------------------------------------------
//IMessages type :dispinterface
//guid = {CD000025-8B95-11D1-82DB-00C04FB1625D}
PROPERTYGET IMessages._NewEnum return UNKNOWN
FUNC IMessages.AddRef() return UI4
PROPERTYGET IMessages.Count return I4//Returns the number of message objects in the

collection
FUNC IMessages.Delete(I4 as Index) return VOID//Deletes the specifed message object in the

collection
FUNC IMessages.DeleteAll() return VOID//Deletes all message objects in the collection
PROPERTYGET IMessages.FileName(VARIANT as var) return BSTR//Returns the name of the file

containing the specified message on the file system
FUNC IMessages.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as lcid, I4

as rgdispid) return VOID
FUNC IMessages.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC IMessages.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC IMessages.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
PROPERTYGET IMessages.Item(I4 as Index) return IMessage//Returns the message specified by

index from the collection
FUNC IMessages.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC IMessages.Release() return UI4
//-----------------------------------------------------------------------------
//INNTPEarlyScriptConnector type :dispinterface
//guid = {CD000034-8B95-11D1-82DB-00C04FB1625D}
FUNC INNTPEarlyScriptConnector.AddRef() return UI4
FUNC INNTPEarlyScriptConnector.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as

cNames, UI4 as lcid, I4 as rgdispid) return VOID
FUNC INNTPEarlyScriptConnector.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo)

return VOID
FUNC INNTPEarlyScriptConnector.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC INNTPEarlyScriptConnector.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as

wFlags, DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC INNTPEarlyScriptConnector.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC INNTPEarlyScriptConnector.Release() return UI4
//-----------------------------------------------------------------------------
//INNTPFinalScriptConnector type :dispinterface
//guid = {CD000032-8B95-11D1-82DB-00C04FB1625D}
FUNC INNTPFinalScriptConnector.AddRef() return UI4
FUNC INNTPFinalScriptConnector.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as

cNames, UI4 as lcid, I4 as rgdispid) return VOID
FUNC INNTPFinalScriptConnector.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo)

return VOID
FUNC INNTPFinalScriptConnector.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC INNTPFinalScriptConnector.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as

wFlags, DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC INNTPFinalScriptConnector.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC INNTPFinalScriptConnector.Release() return UI4
//-----------------------------------------------------------------------------
//INNTPOnPost type :dispinterface
//guid = {CD000027-8B95-11D1-82DB-00C04FB1625D}
FUNC INNTPOnPost.AddRef() return UI4
FUNC INNTPOnPost.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as

lcid, I4 as rgdispid) return VOID
FUNC INNTPOnPost.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC INNTPOnPost.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC INNTPOnPost.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC INNTPOnPost.OnPost(IMessage as Msg, CdoEventStatus as EventStatus) return

VOID//Called by the NNTP event source when a message is posted
FUNC INNTPOnPost.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC INNTPOnPost.Release() return UI4
//-----------------------------------------------------------------------------
//INNTPOnPostEarly type :dispinterface
//guid = {CD000033-8B95-11D1-82DB-00C04FB1625D}
FUNC INNTPOnPostEarly.AddRef() return UI4
FUNC INNTPOnPostEarly.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4

as lcid, I4 as rgdispid) return VOID
FUNC INNTPOnPostEarly.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC INNTPOnPostEarly.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC INNTPOnPostEarly.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC INNTPOnPostEarly.OnPostEarly(IMessage as Msg, CdoEventStatus as EventStatus)

return VOID//Called by the NNTP event source when message headers arrive
FUNC INNTPOnPostEarly.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC INNTPOnPostEarly.Release() return UI4
//-----------------------------------------------------------------------------
//INNTPOnPostFinal type :dispinterface
//guid = {CD000028-8B95-11D1-82DB-00C04FB1625D}
FUNC INNTPOnPostFinal.AddRef() return UI4
FUNC INNTPOnPostFinal.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4

as lcid, I4 as rgdispid) return VOID
FUNC INNTPOnPostFinal.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC INNTPOnPostFinal.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC INNTPOnPostFinal.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC INNTPOnPostFinal.OnPostFinal(IMessage as Msg, CdoEventStatus as EventStatus)

return VOID//Called by the NNTP event source after a posted message has been saved to disk or the

Exchange store
FUNC INNTPOnPostFinal.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC INNTPOnPostFinal.Release() return UI4
//-----------------------------------------------------------------------------
//INNTPPostScriptConnector type :dispinterface
//guid = {CD000031-8B95-11D1-82DB-00C04FB1625D}
FUNC INNTPPostScriptConnector.AddRef() return UI4
FUNC INNTPPostScriptConnector.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as

cNames, UI4 as lcid, I4 as rgdispid) return VOID
FUNC INNTPPostScriptConnector.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo)

return VOID
FUNC INNTPPostScriptConnector.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC INNTPPostScriptConnector.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as

wFlags, DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC INNTPPostScriptConnector.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC INNTPPostScriptConnector.Release() return UI4
//-----------------------------------------------------------------------------
//ISMTPOnArrival type :dispinterface
//guid = {CD000026-8B95-11D1-82DB-00C04FB1625D}
FUNC ISMTPOnArrival.AddRef() return UI4
FUNC ISMTPOnArrival.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames, UI4 as

lcid, I4 as rgdispid) return VOID
FUNC ISMTPOnArrival.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return VOID
FUNC ISMTPOnArrival.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC ISMTPOnArrival.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as wFlags,

DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC ISMTPOnArrival.OnArrival(IMessage as Msg, CdoEventStatus as EventStatus) return

VOID//Called by the SMTP event source when a message arrives
FUNC ISMTPOnArrival.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC ISMTPOnArrival.Release() return UI4
//-----------------------------------------------------------------------------
//ISMTPScriptConnector type :dispinterface
//guid = {CD000030-8B95-11D1-82DB-00C04FB1625D}
FUNC ISMTPScriptConnector.AddRef() return UI4
FUNC ISMTPScriptConnector.GetIDsOfNames(GUID as riid, I1 as rgszNames, UINT as cNames,

UI4 as lcid, I4 as rgdispid) return VOID
FUNC ISMTPScriptConnector.GetTypeInfo(UINT as itinfo, UI4 as lcid, VOID as pptinfo) return

VOID
FUNC ISMTPScriptConnector.GetTypeInfoCount(UINT as pctinfo) return VOID
FUNC ISMTPScriptConnector.Invoke(I4 as dispidMember, GUID as riid, UI4 as lcid, UI2 as

wFlags, DISPPARAMS as pdispparams, VARIANT as pvarResult, EXCEPINFO as pexcepinfo, UINT as

puArgErr) return VOID
FUNC ISMTPScriptConnector.QueryInterface(GUID as riid, VOID as ppvObj) return VOID
FUNC ISMTPScriptConnector.Release() return UI4
===============================================================================
Records.Count = 0
===============================================================================
===============================================================================
Unions.Count = 0
===============================================================================
===============================================================================
IntrinsicAliases.Count = 0
===============================================================================
===============================================================================
CustomDataCollection.Count = 2
===============================================================================
{DE77BA64-517C-11D1-A2DA-0000F8773CE9}:84082967
{DE77BA63-517C-11D1-A2DA-0000F8773CE9}:1105731660
===============================================================================
external file Count = 1

المصدر

http://www5a.biglobe.ne.jp/~javajava/ari/0...cdo/CDOSYS.html

تم تعديل بواسطه zahrah
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله

حل رائع اختي أم عهود

أنا أعلم أن ترميز الصفحة الأساسي للياهو هو utf-8 وحاولت تعديل هيدر الرسالة ولكن دون جدوى

ويوجد كود لتعديل عنوان الصفحة بلغة javascript استعملته لتعديل الميتا إلى utf-8 وأيضا لم تفلح ولكن حلك ما شاء الله

تغيير ترميز جسم الرسالة فقط دون الهيدر

رااااااااااااااائع

وأنت أروع

بارك الله فيك

وجزاك كل الخير

تم تعديل بواسطه mas123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
سؤال سوف يطرح نفسه بعد النتيجة من الاعضاء : هل المشكلة يجب تصحيحها في جهاز المرسل ولا جهاز المستقبل ؟؟؟؟؟

طبعاً التغيير يكون في جهاز المستقبل وليس المرسل وهذه المشكلة واجهتني قديما عندما قامت الهوت ميل بتحديث الايميل وصدور نسخة جديده كما نراها الان

لكن لم يخطر علي بالي ان المشكلة في اعدادات الويندوز

عموماً أنا جربت هذا الحل ولم يفلح معي تماماً

post-46243-1253828156_thumb.jpg

post-46243-1253828141_thumb.jpg

ولكن ........ هل حذف هذه القيمة لن يؤثر على أداء أشياء أخرى فى الويندوز ؟؟؟ !!!!

أخي الفاضل محمد ندا

لن يؤثر علي شيء ان شاء الله

أختي الفاضلة زهرة

السلام عليكم ورحمة الله وبركاتة

بارك الله فيك وسلمت يداك وحفظك الله دائما من كل شر

الحل المقدم من سيادتك ضبط ولكن هناك شيء ضبط معكي ولم يضبط معي حتي الان وهو حقل myname ظهر كما وضحتي لنا بالصور يحمل اسم

ام عهود (عاشت الاسامي)

لكن عندي مازال يحمل علامات استفهام في كل من (Hotmail,Yahoo,Gmail)

post-46243-1253828411_thumb.jpg

post-46243-1253828427_thumb.jpg

post-46243-1253828440_thumb.jpg

وبارك الله فيكي مرة أخري وسلمتي وسلمت العقول العربية

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم ورحمة الله وبركاته :

الاخت الغالية زهرة

مش جديد عليكي ؛ ماشاء الله من ابداع الي ابداع ؛؛؛ شكرا

======================================================

معلش لازم اطمع شوية ؛ من باب العشم علي قولة المصريين :) ؛؛؛مدام ان عباقرة قسم الاكسيس مهتمين بالموضوع ونجعله مشروع جماعي يشترك فيه الجميع وتكون اجمل هدية في الايام الجميلة اللي بنعشها

كيف يمكن ارفاق تقرير للرسالة ؛ علي صغتين اختار احدهما ( ولا ننسي ان تكون عملية الارسال مخفية ) :

الاولي : علي شكل تقرير

الثانية : علي شكل بيانات الجدول او الاستعلام

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أختنا المبدعة الدكتورة أم عهود

كما تفضل أخى محمد فؤاد تركى .. فإنه مازال إسم الراسل يظهر بشكل علامات استفهام ..

لكن بالنسبة لاسم الراسل والمرسل إليه فى جسم الرسالة فكله تمام وزى الفل ...

والصورة توضح لقطتين مدمجتين من كل من Yahoo و Hotmail فكلاهما لديهما نفس المشكلة.

post-29007-1253829295_thumb.jpg

تحياتى

محمد ندا

تم تعديل بواسطه Mohamed Nada
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
أختي الفاضلة زهرة

السلام عليكم ورحمة الله وبركاتة

بارك الله فيك وسلمت يداك وحفظك الله دائما من كل شر

الحل المقدم من سيادتك ضبط ولكن هناك شيء ضبط معكي ولم يضبط معي حتي الان وهو حقل myname ظهر كما وضحتي لنا بالصور يحمل اسم

ام عهود (عاشت الاسامي)

لكن عندي مازال يحمل علامات استفهام في كل من (Hotmail,Yahoo,Gmail)

@ اخي الفاضل محمد فؤاد

لا يوجد مشكله إن شاء الله طالما ان مصدر الكائن CDO موجود لدينا بكل تعليماته فسوف اقوم بالتطبيق على المثال

مع انه لن يظهر عندي اي اختلاف في الترميز للعناوين لآنها تظهر سليمه وصحيحه ولكن سأحاول ان اضع بعض الحلول البرمجية لذلك وتقوم بالتجربه حتى تضبط معك ومع بقية الأخوة الذين يعانون من هذه المشكلة في عناوين الرساله .

@ اخي الفاضل هشام

لا يوجد اي مشكله في ارفاق التقارير او الملفات مع الرساله هذا اذا كنت تريد ارفاق ملفات مع الرساله

اما اذا كنت تقصد شيء آخر فياريت توضحه لأنني لم استوعب كلمة ( تقارير مخفيه ) فما هو القصد بارك الله بك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الفاضل هشام

بخصوص ارفاق ملفات في البرنامج فقد حلها لنا الاخ محمد صالح في المشاركة رقم 24

http://www.arabteam2000-forum.com/index.ph...t&p=1016495

1 - اضافة مرفقات للبرنامج

2 - اضافة نسخة الي ....

3 - اضافة نسخة مخفية الي ....

أو اذا كنت فعلا تقصد شيء آخر كما قالت الاخت أم عهود

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم ورحمة الله وبركاته :

الاخت زهرة :

المطلوب مقسوم الي قسمين :

الاول : ارسال تقرير من داخل قاعدة البيانات نفسها كمرفق في الرسالة ( وليس اختيار ملف خارجي ). واعتقد ان هذه النقطة لا غبار عليها .

الثاني : ارسال بيانات جدول ؛ اقصد البيانات الموجودة داخل الجدول ؛ فمثلا اذا كان لدي جدول يحتوي علي 3 اعمدة بهم 10 سجلات ؛ اقوم باضافة جدول الي الرسالة وبه هذه البيانات ؛ هذه المره ليس كمرفق ولكن بيانات داخل الرسالة نفسها .

بالنسبة لموضوع مخفي : هو فعلا التعبير خاني ومش موضح المطلوب ولكن المطلوب هو امكانية ارسال هذا البريد الذي يحتوي علي هذه البيانات اتوماتيك دون تدخل من اليوزر نفسه

شكرا مقدما

بالتوفيق

تم تعديل بواسطه Hisham_wz
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

يا إخواني كله تمام ولي سؤال

كيف يكون اسم المرسل وعنوان الرسالة يظهر صحيحا في بداية الأمر معكم ثم يتغير يعد تصحيح جسم الرسالة؟؟!!

هذه نتيجة التجربة في الياهو من خارج الرسالة

yaho1.jpg

وهذه من داخلها

yaho2.jpg

وهذه من مكتوب

mktob.jpg

وهذه من هوت ميل

hotmailj.jpg

تعبناك معانا يا أم عهود

واقترح كما قترحت سابقا

وكما اقترح الأخ هشام

أن يضيف كل أخ مثال على استعمال الكود بطريقة غير التي عرضها زميله

حتى يتكون لدينا مرجع عن الأكسس والبريد

كل عام أنتم بخير

تم تعديل بواسطه mas123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
كيف يكون اسم المرسل وعنوان الرسالة يظهر صحيحا في بداية الأمر معكم ثم يتغير يعد تصحيح جسم الرسالة؟؟!!

من قال أن عنوان الرسالة يظهر صحيحاً في بداية الامر !

عنوان الرسالة لم يظهر صحيحاً الا بعد التعديل التي اجرته الاخت زهرة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

انا العنوان عندي طلع تمام واسم المرسل كمان تمام ... ممكن لان الويندوز بتاعي عربي؟

تم تعديل بواسطه corrector
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
من قال أن عنوان الرسالة يظهر صحيحاً في بداية الامر !

عنوان الرسالة لم يظهر صحيحاً الا بعد التعديل التي اجرته الاخت زهرة

يا أخي محمد

أليست هذه صورك المرفقة التي تدل على عدم ظهور عنوان الرسالة واسم المرسل بصورة صحيحة حتى بعد تعديل كود جسم الرسالة؟؟

post-46243-1253828411.jpg

وهذه

post-46243-1253828427.jpg

وهذه

post-46243-1253828440.jpg

وأعتقد انه لم يثر أحد قضية عنوان الرسالة واسم المرسل من قبل

رغم عرضي لنتائج الإرسال بالصور

على العموم

هيا نكتشف ونستعمل هذا الكود في كل الأغراض

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الفاضل

محمد صالح

التقطت هذه الصورة بعد تجربة طريقة الاخ هشام

لكن بعد تجربة الكود الجديد المقدم من خلال الاخت زهرة ظهر العنوان لكن ما زال اسم الراسل يظهر علي شكل علامات استفهام ؟؟؟؟؟؟؟؟

أعتقد ان الامور بدأت تضح الان

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل هشام

بناء على طلبك فقد تم عمل جدول يكون في داخل جسم الرساله بصيغة HTML وستجد الكود الخاص به من ضمن اكواد جسم الرساله

لأنه لا يمكن وضع جدول في مربع نص وهي ( مربع نص الرساله ) إلا بطريقة الكود السابق اثناء ارسال الرساله للبريد

وايضا لم تقم بتحديد الصيغة المطلوب عرضها للتقرير في الملفات المرفقه فالتقرير يقبل تحويله للصيغ XLS ( اكسيل ) او TXT ( ملفات نصيه ) او HTML ( صفحات ويب ) او SNP ( لقطات Snapshot )

لهذا قمنا بتحويل التقرير الى صيغة Snapshot وتم حفظه مع قاعدة البيانات في الدليل C:\masmailer لأنه لا يمكن ارسال التقرير بشكله الإفتراضي في برنامج الأكسيس كمرفقات ولكن يجب تحويله اولا الى اي صيغه ثم ارساله بعد ذلك كمرفقات في البريد .

لهذا فإنك عندما تفتح البرنامج فضع المجلد مباشرة على C:\masmailer بهذا الشكل لأن التقرير المرفق موجود بهذا المجلد ومشار له في الكود

post-15367-1253890344_thumb.gif

post-15367-1253890413_thumb.gif

post-15367-1253890438_thumb.gif

البرنامج بعد التعديل

masmailer.rar

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله

وكمان خبرة في برمجة صفحات html الله يحميكي أخت زهرة

ولكن اسمحيلي ببعض التعديل

بناء كود html للجدول بناء على قراءة بيانات الجدول

اختصار أكواد html إلى ما في المرفق

وينبغي تغيير سطر جسم الرسالة إلى

.HTMLBody = strbody

جعل مسار المرفق هو الملف المجاور لقاعدة البيانات

مرفق ملف القاعدة فقط

يوضع مع التقرير في نفس المجلد

تقبلوا جميعا خالص تحياتي

mas_mailer_v2_UP.rar

تم تعديل بواسطه mas123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكــم ورحمـة الله وبركاتــه ،،

الأستاذة الرائعة زهرة

تمت التجربة وكله تمام

post-29007-1253899877_thumb.gif

:) :) :)

تم تعديل بواسطه Mohamed Nada
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

زادك الله رفعة أختي الفاضلة أم عهود

أخي محمد قال رسول الله صلى الله عليه وسلم : "من تواضع لله رفعه"

وهذا تواضع من استاذتنا زهرة يزيدها عزة ورفعة بيننا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

الاستاذة زهرة

طبعا مش جديد عليكي الابداع في الردود ؛ وكلمة الشكر مش كفاية ؛ ربنا يجعله في ميزان حسناتك ؛ مبدعه وزهرة منتدانا بلا منازع . :clapping:

استاذتي :

بالنسبة لشق الارفاق تقريبا فكرة حضرتك جميلة جدا وهي التصدير ثم افاق الملف المصدر كملف مرفق في الرسالة ؛ فكرة جميلة . هكذا انتهينا من هذه النقطة .

ولكن بالنسبة لجزئية ارفاق بيانات جدول او الاستعلام في جسم الرسالة به نقطة نحاول اكتشاف علاج لها

وهي ان عدد السجلات في كل مرة سوف يختلف ؛ ولن يكون العدد محدد مقدما ؛ فمثلا :

ممكن ان يكون عدد السجلات في اول مرة ارسال هو 10 سجلات ؛ بينما في اليوم التالي للارسال قد يكون 20 سجل

هل معني ذلك انا ادخل علي الكود لاعيد كتابته مرة اخري ؟؟؟

هناك في لغة php ما يسمي loop وايضا موجود في الاكسيس

وهذه معلومات عن loop لمن يريد

السؤال : هل من الممكن انا نستفيد بها في مثالنا هذا ؟

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
زادك الله رفعة أختي الفاضلة أم عهود

أخي محمد قال رسول الله صلى الله عليه وسلم : "من تواضع لله رفعه"

وهذا تواضع من استاذتنا زهرة يزيدها عزة ورفعة بيننا

طبعاً أخى محمد صالح ،، هذا تواضع من الدكتورة أم عهود ضٌرب به المثل من وقت طويل وليس جديداً عليها ،، فهذا بعض ما تعلمنا منها.

ولكنها كانت مزحة أخوية أتمنى أن تقبلها.

تحياتى

محمد ندا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مشاركات رائعة أدت إلى برنامج رائع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
السلام عليكم

الاستاذة زهرة

طبعا مش جديد عليكي الابداع في الردود ؛ وكلمة الشكر مش كفاية ؛ ربنا يجعله في ميزان حسناتك ؛ مبدعه وزهرة منتدانا بلا منازع . :clapping:

استاذتي :

بالنسبة لشق الارفاق تقريبا فكرة حضرتك جميلة جدا وهي التصدير ثم افاق الملف المصدر كملف مرفق في الرسالة ؛ فكرة جميلة . هكذا انتهينا من هذه النقطة .

ولكن بالنسبة لجزئية ارفاق بيانات جدول او الاستعلام في جسم الرسالة به نقطة نحاول اكتشاف علاج لها

وهي ان عدد السجلات في كل مرة سوف يختلف ؛ ولن يكون العدد محدد مقدما ؛ فمثلا :

ممكن ان يكون عدد السجلات في اول مرة ارسال هو 10 سجلات ؛ بينما في اليوم التالي للارسال قد يكون 20 سجل

هل معني ذلك انا ادخل علي الكود لاعيد كتابته مرة اخري ؟؟؟

هناك في لغة php ما يسمي loop وايضا موجود في الاكسيس

وهذه معلومات عن loop لمن يريد

السؤال : هل من الممكن انا نستفيد بها في مثالنا هذا ؟

بالتوفيق

يبدو أن أخي هشام

لا يقرأ مشاركات الأعضاء في الموضوع باهتمام

تم حل ما تتحدث عنه في مشاركة لي

هنـــــا

تحياتي للجميع

وبالنسبة للمزاح مع أستاذتنا زهرة أخشى أن نتعود على هذا أخي محمد ندا

تقبل مروري وتعليقي

ويارب تتقبل أختنا زهرة مزاحنا احنا الاتنين

تم تعديل بواسطه mas123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .