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


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





اضافه الى كود ارسال رسالة ل Gmail

السلام عليكم ورحمة الله قدم الاستاذ المحترم ياسر خليل جزاه الله خيرا كود ارسال رساله الى ال Gmail - بالمرفق - والمطلوب ف ..



03-10-2017 10:40 مساء
احمد حمدان
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 840
المشاركات : 21
الجنس : ذكر
تاريخ الميلاد : 28-6-1986
قوة السمعة : 20
 offline 

السلام عليكم ورحمة الله
قدم الاستاذ المحترم ياسر خليل جزاه الله خيرا كود ارسال رساله الى ال Gmail - بالمرفق -
والمطلوب فضلا -  إضافة الي الكود بحيث يتم ارفاق 2 صورة مع الرساله - واحده محفوظة على الجهاز - والاخري هي النطاق A1:G10 بورقة العمل 2 ونظرا لطبيعه العمل فأنا بحاجه الى تصدير هذا النطاق كصورة- Jpg -  مع الرساله
الرجاء المساعده - جزاكم الله خيراً 

 
 
 
  Send Gmail Using CDO.rar   تحميل rar مرات التحميل :(10)
الحجم :(13.596) KB




03-10-2017 11:06 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10432
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36232
عدد الإجابات: 247
 offline 
look/images/icons/i1.gif اضافه الى كود ارسال رسالة ل Gmail
وعليكم السلام أخي الكريم أحمد حمدان
جرب الكود التالي عله يفي بالغرض
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"

    Call ExportRangeToJpg
    file = ThisWorkbook.Path & "\Output.jpg"

    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
        .AddAttachment file
        .AddAttachment ThisWorkbook.Path & "\Sample.jpg"

        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
    
    MsgBox "Sent", 64
End Sub

Private Sub ExportRangeToJpg()
    Dim objPic          As Shape
    Dim objChart        As Chart
    Dim rng             As Range
    Dim fname           As String

    Set rng = Sheets("Sheet2").Range("A1:G10")
    fname = "Output"

    Application.DisplayAlerts = False
        rng.CopyPicture xlScreen, xlPicture
        Sheets.Add , Sheets(Sheets.Count)
    
        With Sheets(Sheets.Count)
            .Shapes.AddChart
            .Activate
            .Shapes.Item(1).Select
            Set objChart = ActiveChart
            .Shapes.Item(1).Width = rng.Width
            .Shapes.Item(1).Height = rng.Height
            objChart.Paste
            objChart.Export (ThisWorkbook.Path & "\" & fname & ".jpg")
            .Delete
        End With
    Application.DisplayAlerts = True
End Sub


04-10-2017 09:10 مساء
مشاهدة مشاركة منفردة [2]
احمد حمدان
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 840
المشاركات : 21
الجنس : ذكر
تاريخ الميلاد : 28-6-1986
قوة السمعة : 20
 offline 
look/images/icons/i1.gif اضافه الى كود ارسال رسالة ل Gmail
السلام عليكم ورحمة الله 
جزاك الله الجنة ا.ياسر الكود يعمل بكفأءة
لا اريد ان اثقل على حضرتك - ولكن كرماً منك 
 هل هناك هناك إمكانيه من إضافه Progress Par  - تبدأ من حدث الضغط على ارسال - وتنتهي في حدث انتهاء الارسال - 
شكرا جزيلا لحضرتك 

 


05-10-2017 08:27 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10432
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36232
عدد الإجابات: 247
 offline 
look/images/icons/i1.gif اضافه الى كود ارسال رسالة ل Gmail
وعليكم السلام أخي الكريم أحمد
نعم يمكن عمل Progress Bar وقد قدمته من فترة .. ويمكنك أن تدمجه في الكود ولكني لا أحبذ ذلك شخصياً
وها هو رابط الملف لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


05-10-2017 09:34 صباحا
مشاهدة مشاركة منفردة [4]
ahmed moh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 239
الجنس : ذكر
قوة السمعة : 324
 offline 
look/images/icons/i1.gif اضافه الى كود ارسال رسالة ل Gmail
السلام عليكم اخى الحبيب ياسر
الستاذ ياسر 
لا استطيع تحميل ملف  Progress Bar
تظهر هذه الرساله 
ERROR for site owner:
Invalid domain for site key
هل يمكن رفعه على الموقع
جزاك الله خيرا


05-10-2017 09:41 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10432
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36232
عدد الإجابات: 247
 offline 
look/images/icons/i1.gif اضافه الى كود ارسال رسالة ل Gmail
وعليكم السلام أخي الكريم أبو حنين
يمكنك تجربة متصفح آخر للتحميل .. التحميل من الموقع يدعمني (دعم بسيط ولكنه مع الوقت قد يكون مجدي)
وعموماً تفضل الملف المرفق هاهنا
 
 
  Create VBA Progress Bar UserForm With Step By Step Instructions YasserKhalil Facebook.rar   تحميل rar مرات التحميل :(6)
الحجم :(308.929) KB



05-10-2017 10:01 صباحا
مشاهدة مشاركة منفردة [6]
ahmed moh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 239
الجنس : ذكر
قوة السمعة : 324
 offline 
look/images/icons/i1.gif اضافه الى كود ارسال رسالة ل Gmail
السلام عليكم اخى الحبيب ياسر
تم تغير المتصفح  وتم انزال الملف من على الموقع 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
جزاك الله خيرا

 




الكلمات الدلالية
اضافه ، ارسال ، رسالة ، Gmail ،


 










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

الساعة الآن 12:19 صباحا