تقييم الموضوع :
  • 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 ك ب / التحميلات : 140)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,450 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  ارسال sms عن طريق الفجوال بيزيك 6 2003amin 2 655 05-12-22, 08:14 AM
آخر رد: Ergheegh2022
Question كيف يمكن فتح ملف exe من خلال برنامجي ؟؟ Microformt 2 872 02-05-22, 12:21 AM
آخر رد: Microformt
Question [vb6.0] هل يمكن تغير نوع خط Label من خلال الكود وكيف ذلك ؟؟ Microformt 2 1,051 10-10-21, 08:58 AM
آخر رد: Microformt
  الإدخال اليدوي من خلال MSHFlexGrid مصمم هاوي 16 3,933 09-09-21, 05:30 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] هل هناك كود يمكن تكبير الفورم من خلال موشر الفاره بطريقة السحب في حال تم الغاء هذه Microformt 3 1,650 21-05-20, 03:39 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] كيف استطيع ادراج تاريخ من خلال التقويم مباشرة iisys 4 3,395 23-04-20, 03:31 AM
آخر رد: alaanet_system@yahoo.com
  ماهو كود ارسال ملف الوورد الى الطابعة في نفس وقت تصديره للورد؟ gonm64 1 1,175 08-03-20, 09:24 AM
آخر رد: gonm64
  إختيار السكاين من خلال الكومبوبوكس عبد العزيز البسكري 45 13,128 20-09-19, 11:49 AM
آخر رد: MicroDoha
  [vb6.0] كود تصفية البيانات بأكثر من اختيار من خلال أكثر من combobox abobodymoon 1 2,201 16-09-19, 01:23 PM
آخر رد: عماني939

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


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