تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارسال اميل من خلال كود
#1
السلام عليكم
اولاا اتقدم بالتحيه لجميع الااعضاء والقائمين على المنتدى
وارجو المساعده فى الاتى
تم حفظ عدد من الشيتات من خلال كود فى ملف اكسيلبصيغه pdf
Sub PDF_ALL()
MyName = "D:\All MANAFIST KLABSH_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf"

Range("C45").Select
Sheets(Array("الاتوبيس", "طائرة", "مطروح", "تعديل")).Select
Sheets("الاتوبيس").Activate
MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه")
If MyMsg = 6 Then
ChDir "D:"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
MsgBox "تم الحفظ"
Else
MsgBox "لم يتم الحفظ"
End If
End Sub
هل يمكن ارسال هذا الملف الذى تم حفظه عن طريق الاميل outlook
من خلال التعديل على الكود السابق او عمل كود منفصل
عند حفظ الملف بصيغه pdf يتم ارساله اميل من خلال outlook
جزاكم الله كل الخير
الرد }}}}
تم الشكر بواسطة:
#2
أعتقد طلبك موجود بالمرفقات


الملفات المرفقة
.zip   SendEmail.zip (الحجم : 3.16 ك ب / التحميلات : 104)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير ارسال اسم العمود حافظ حافظ 2 131 11-10-17, 12:14 PM
آخر رد: حافظ حافظ
Question [vb6.0] كيف اغلاق ملف قاعدة بيانات اكسس مفتوحة من خلال برنامجي ؟؟ Microformt 3 92 21-09-17, 04:20 PM
آخر رد: Amir_alzubidy
  ارسال من التاكست بوكس الى الوورد حافظ حافظ 4 150 19-09-17, 12:09 PM
آخر رد: مصمم هاوي
Question [vb6.0] هل يمكن تنفيذ اومر دوس من خلال فجوال البيسك 6 ؟؟ Microformt 2 123 01-09-17, 12:27 AM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان افعل هذا الخيار الموجود في الصوره على جميع إصدارات وندز من خلال البرمجة؟؟ Microformt 3 171 15-07-17, 07:24 PM
آخر رد: مصمم هاوي
  كيف إختيار الفرع من خلال الكومبوكس مصمم هاوي 6 228 20-06-17, 06:29 PM
آخر رد: Ahmed_Mansoor
  [سؤال] ارسال قيمة من مفتاح انتر KeyAscii أبو عقيل 6 224 30-05-17, 08:45 PM
آخر رد: أبو عقيل
Question [vb6.0] هل يمكن من خلال البرامجة عمل قيمة افتراضية في Text ؟؟ Microformt 2 207 28-05-17, 11:58 PM
آخر رد: Microformt
  إختيار السكاين من خلال الكومبوبوكس عبد العزيز البسكري 44 1,798 28-05-17, 09:31 PM
آخر رد: عبد العزيز البسكري
  تغيير الاعدادات الاقليمية للويندوز من خلال الفيجوال بيسيك 6 abosara 2 218 26-03-17, 12:50 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم