طلب تعديل ارسال الملف بالايميل

[wissamkh]

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

أخواني أريد مساعدة في ارسال الملف عبر الايميل مباشرة بعد الحفظ والنحويل الى اكسل

الملف المرفق فيه فقط تحويل الملف الى pdf  وحفظه بإسم يتغير تلقائيا بعد كل تعديل على البيانات

أريد عند الحفظ إرسال الملف مباشرة عبر الايميل

وجدت طريقة لكن يجب فيها تحديد اسم الملف بالضبط، أنا اريد ال vba ياخد الاسم تلقائيا مع كل تغيير

 

وشكرا لكم

emailtest.xlsm

[wissamkh]

Sub sendReminderMail()
ChDir "f:\delivery\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"f:\delivery\" & Range("G8").Value, openafterpublish:=False


Dim OutlookApp As Object
Dim Outlookmailitem As Object
Dim myattachments As Object

Set OutlookApp = CreateObject("outlook.application")
Set Outlookmailitem = OutlookApp.CreateItem(0)
Set myattachments = Outlookmailitem.Attachments

With Outlookmailitem
.to = "info@email.com"
.Subject = "data"
.Body = "the excel data is attached in PDF format"
myattachments.Add "f:\delivery\"   ""هنا المشكلة لا اريد تحديد اسم معين للملف""

'.send
.display
End With

Set Outlookmailitem = Nothing
Set OutlookApp = Nothing


End Sub

 

[أبو إيمان]

الجزئية المشار إليها خاصه بتحديد مسار الملف وليس اسم الملف  بمعنى انه يرسل الملف الموجود في 

20 ساعات مضت, wissamkh said:

"f:\delivery\" 

 

 

ويمكنك الاطلاع على الرابط التالي ممكن يفيدك إن شاء الله

 

https://www.officena.net/ib/topic/58863-ارسال-رساله-الي-الايميل-بانتهاء-المده/

[wissamkh]

شكرا لك اخي الكريم

نعم انا كنت اريد تعديل هذه الجزئية.

قمت بتجربة تعديل ونجحت

اصبحت هكذا

Path = "f:\delivery\"
fname = Range("G8").Value
.Attachments.Add (Path & fname & ".pdf")