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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] فتح ملف إكسل من خلال الفيجوال بيسك 6 Abdellah 6 1,322 13-01-19, 02:26 PM
آخر رد: aminou7
  طريقة فتح فورم من خلال قائمة منسدلة بالليبل مصمم هاوي 4 193 10-01-19, 12:10 AM
آخر رد: مصمم هاوي
  سؤال عن ارسال او استقبال صورة في vb6 محمد حمد محمد 1 172 22-12-18, 01:52 AM
آخر رد: elgokr
  [vb6.0] خاصية تعتمد علي Artificial intelligence عند كتابة في قاعدة بيانات اكسيس من خلال VB6 mohamed arafa 5 346 13-09-18, 03:47 AM
آخر رد: mohamed arafa
  كود فتح ملف اكسس من خلال الفيجول 6 abosara 6 476 28-07-18, 04:59 PM
آخر رد: abosara
  [سؤال] كيف افتح ملف وورد مخزون مسبقا من خلال الفيجوال بيسك nerjis ameer 16 6,184 16-07-18, 06:13 PM
آخر رد: abosara
Question [vb6.0] هل يمكن عمل تقرير من خلال اكتف ريبورت لطابعه التالية ؟ Mysystem32 1 308 08-05-18, 06:14 PM
آخر رد: sendbad100
Question [vb6.0] هل يمكن تشفير قاعدة البيانات اكسس بحث لا يمكن فتحها من خلال برنامج Microsoft Access Microformt 0 337 05-05-18, 02:40 PM
آخر رد: Microformt
  [سؤال] تنفيذ تقرير و ارسال ايميل aboezzat84 1 308 29-11-17, 03:03 PM
آخر رد: Amir_Alzubidy
  طباعة بيانات محدد من خلال بحث في mshflexgrid دهشوش1 2 422 25-11-17, 02:29 AM
آخر رد: دهشوش1

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


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