أكاديمية الصقر للتدريب

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





إرسال رسالة بريد إلكتروني عبر الـ Gmail

السلام عليكم ورحمة الله وبركاته إخواني الكرام أقدم لكم كود يمكنك من إرسال رسائل بريد إلكتروني عبر الـ Gmail بطريقة بسيط ..



02-09-2017 08:33 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 

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

إخواني الكرام أقدم لكم كود يمكنك من إرسال رسائل بريد إلكتروني عبر الـ Gmail بطريقة بسيطة ، كل ما عليك هو وضع الكود التالي في موديول عادي
Option Explicit

Sub Send_Gmail_Using_CDO()
    Dim folder      As Variant
    Dim cdoMsg      As Object
    Dim file        As String
    Dim cdoNS       As String
    Dim htmlMsg     As String
    Dim password    As String
    Dim strBCC      As String
    Dim strCC       As String
    Dim strMsg      As String
    Dim strSubj     As String
    Dim strTo       As String
    Dim userEmail   As String
    Dim strBody     As String
    
    'الإيميل الذي سيرسل إليه
    strTo = "anyone@gmail.com"
    
    'عنوان الرسالة
    strSubj = "This Is The Subject Line"
    strMsg = ""
    strCC = ""
    strBCC = ""
    
    'مضمون الرسالة
    strBody = "Hello My Friend" & vbCrLf & "How Are You Doing?"
    
    'معلومات بريدك الاسم وكلمة السر
    userEmail = "my_gmail@gmail.com"
    password = "my_pass"

    cdoNS = "http://schemas.microsoft.com/cdo/configuration/"
    Set cdoMsg = CreateObject("CDO.Message")

    With cdoMsg
        .To = strTo
        .Subject = strSubj
        .From = userEmail
        .CC = strCC
        .BCC = strBCC
        .TextBody = strBody

        With .Configuration.Fields
            .Item(cdoNS & "smtpusessl") = True
            .Item(cdoNS & "smtpauthenticate") = 1
            .Item(cdoNS & "sendusername") = userEmail
            .Item(cdoNS & "sendpassword") = password
            .Item(cdoNS & "smtpserver") = "smtp.gmail.com"
            .Item(cdoNS & "sendusing") = 2
            .Item(cdoNS & "smtpserverport") = 465
            .Item(cdoNS & "smtpconnectiontimeout") = 60
            .Update
        End With

        .Send
    End With
End Sub


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

أرجو أن يكون الكود مفيد لكم

أخوكم في الله / ياسر خليل أبو البراء




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: Essam، ابوعبدالواجد، خالد الشاعر، faraktoz، احمد حمدان، ahmed moh، زياد عبد الجليل، mohammed gurtuby، karwan، محمود ابو الدهب، Eslam Abdullah، amaar، محمد الدسوقى، aymansharef، بليغ البتول، مالك ماريه، dekheel، محمد النيل،





05-09-2017 09:35 مساء
مشاهدة مشاركة منفردة [1]
خالد الشاعر
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 68
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
يتابعهم : 1
يتابعونه : 2
قوة السمعة : 102
الاعجاب : 38
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
ممكن شرح لعمل الكود وكيفية الاستخدام





05-09-2017 10:21 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
يوجد بالكود تعليقات على الأسطر التي ستقوم بتغييرها أخي الكريم خالد
حيث يتم كتابة ايميل المرسل إليه ، والإيميل المرسل منه (الخاص بك) ومعه كلمة السر .. ومحتوى الرسالة وعنوانها وفي النهاية يتم إرسال الرسالة بتنفيذ الكود
 





03-10-2017 07:40 صباحا
مشاهدة مشاركة منفردة [3]
احمد حمدان
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 840
المشاركات : 21
الجنس : ذكر
تاريخ الميلاد : 28-6-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
السلام عليكم ورحمة الله
شكراً جزيلاً  أ. ياسر خليل
واسمح لى ان اسال كيف لى ان ارسل صوره مع هذا الايميل موجوده على الكمبيوتر - و نطاق في صفحه الاكسيل ( يتم إرساله كصورة ايضاً ) -  
جزاك الله خيراً 





03-10-2017 05:09 مساء
مشاهدة مشاركة منفردة [4]
احمد حمدان
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 840
المشاركات : 21
الجنس : ذكر
تاريخ الميلاد : 28-6-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
للرفع جزاكم الله خيراً 





03-10-2017 07:31 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
أخي الكريم أحمد
بعد هذا السطر
password = "my_pass"

يمكنك أن تقوم بما شئت .. فعلى سبيل المثال الجاهز لدي .. يمكنك تصدير ورقة العمل النشطة كملف PDF ويتم إرساله ..
'Save ActiveSheet As A PDF File To The User's Desktop And Attach It To This Email
With CreateObject("Shell.Application")
    folder = .Namespace(0).Self.Path & ""
    file = folder & ActiveWorkbook.Name
    file = Left(file, InStrRev(file, ".")) & "pdf"
    ActiveSheet.Copy
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=file
    ActiveWorkbook.Close SaveChanges:=False
End With


وبعد هذا السطر في الكود
.TextBody = strBody

ضع السطر التالي
.AddAttachment file

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

أثارت هذه المشاركة إعجاب: احمد حمدان،




03-10-2017 10:22 مساء
مشاهدة مشاركة منفردة [6]
احمد حمدان
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 840
المشاركات : 21
الجنس : ذكر
تاريخ الميلاد : 28-6-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
السلام عليكم
جزاك الله خيراً أ. ياسر 
زادك الله فضلا وعلماً 
ولاني لازلت احتاج الي إضافه على كود حضرتك سأقوم بطرح موضوع جديد
تقبل تحياتي





03-10-2017 10:34 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
وعليكم السلام
وجزيت خيراً بمثل ما دعوت لي وزيادة

إن شاء الله مع الموضوع الجديد ستجد تفاعل أكثر من الأخوة حيث أن الطلبات في المشاركات الفرعية يقل فيها التفاعل

أثارت هذه المشاركة إعجاب: احمد حمدان،




10-10-2017 06:04 مساء
مشاهدة مشاركة منفردة [8]
احمد حمدان
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 840
المشاركات : 21
الجنس : ذكر
تاريخ الميلاد : 28-6-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
السلام عليكم ورحمة الله

الاستاذ المحترم ياسر خليل اعزه الله
تم والحمد لله المطلوب ويعمل  بكفاءه عاليه - جزاك الله خيراً - وبقصد التعلم استخدمت كود ال pdf  - وعندي استفسارين لو سمحت لى 
الاول - ماذا لو اردت ارسال الملف - pdf -  ولكن استطيع تحديد اسمه وليس فقط بناء على اسم ال workbook - بحيث استطيع ان ارسله بكود معين لمنتج معين او ما شابه - وليكن الاسم في تكست بوكس 1 

الثاني : ماذا لو نطاق وليس ورقة كاملة- وليكن PrintArea
ارجو ان يتسع صدر حضرتك لكثره اسئلتي - جزاك الله خيراً 
واعتذر من حضرتك جدا جدا علي كتابه المشاركه هنا وليس بموضوع جديد فقد انتبهت لذلك بعد كتابتها..  





10-10-2017 10:19 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
وعليكم السلام
أفضل طرح كل نقطة في موضوع مستقل مع وضع ملف مرفق لتتضح صورة الطلب وليشارك الأعضاء بفعالية أكثر في الموضوع الجديد حيث أنني غير متاح في الوقت الحالي
تقبل تحياتي

أثارت هذه المشاركة إعجاب: احمد حمدان،




10-10-2017 10:49 مساء
مشاهدة مشاركة منفردة [10]
احمد حمدان
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 840
المشاركات : 21
الجنس : ذكر
تاريخ الميلاد : 28-6-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
اعزك الله ورفع قدرك
اعتذر من حضرتك مره اخرى عن طرح الموضوع هنا وليس في موضوع منفصل - خطا غير مقصود





10-10-2017 10:52 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
لا عليك أخي العزيز أحمد
القصة كلها لتيسير البحث فيما بعد حيث أنني أفضل أن تكون الموضوعات منفصلة لتمام الاستفادة .. فكل نقطة أو مشكلة أو جزئية تكون لها موضوع مستقل
ومن ناحية أخرى طرح موضوع جديد يشجع الأعضاء على المشاركة الفعالة أكثر .. هذا من خلال خبرتي في التعامل مع المنتديات حيث أن المشاركات الفرعية يقل فيها التفاعل بشكل كبير

أثارت هذه المشاركة إعجاب: احمد حمدان،




12-02-2018 02:16 مساء
مشاهدة مشاركة منفردة [12]
mohammed gurtuby
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-01-2018
رقم العضوية : 3536
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 31-12-1988
الدعوات : 3
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 185
الاعجاب : 79
 offline 
look/images/icons/i1.gif إرسال رسالة بريد إلكتروني عبر الـ Gmail
جزاكم الله خيرا اخي الكريم ياسرخليل

أثارت هذه المشاركة إعجاب: YasserKhalil،






الكلمات الدلالية
إرسال ، رسالة ، بريد ، إلكتروني ، Gmail ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 04:06 صباحا

أعلن هنا
أعلن هنا
أعلن هنا