إرفاق ملف خارجي مع البريد

موضوع منقول من المنتدي القديم

الكاتب : أنا و هي

هل يمكن أرفاق ملف خارجي مع البريد

بسم الله الرحمن الرحيم

عند إنشاء بليد من داخل الآكسس يمكن إرفاق جدول أو نموذج بالبريد، ولكن هل يمكن أرفاق ملف خارجي (مثل autoexxec.bat) بالبريد الذي تم إنشاءه من داخل أكسس،

وشكرا لكم

الكاتب: أناوهي بتاريخ: 8/28/2002 12:01:20 AM

------------

إجابة

وجدت كود في أحد المواقع يمكنك من إرسال رسالة من داخل الأكسس ، ولكن لم استطع التعديل فيه لإرفاق ملف .

لعلك أو أحد الأخوة يستطيع التعديل فيه للحاجة اليه .

في الوحدة النمطية الخاصة بالنموذج في الأعلى اكتب :

Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory _
    As String, ByVal nShowCmd As Long) As Long

Private Const SW_SHOWNORMAL = 1

وفي أي مكان من الوحدة اكتب :

Public Sub SendMail(Optional Address As String, _
    Optional Subject As String, Optional Body As String, _
    Optional CC As String, Optional BCC As String)

    Dim strCommand As String

    If Len(Subject) Then strCommand = "&Subject=" & Subject
    If Len(Body) Then strCommand = strCommand & "&Body=" & Body
    If Len(CC) Then strCommand = strCommand & "&CC=" & CC
    If Len(BCC) Then strCommand = strCommand & "&BCC=" & BCC

    If Len(strCommand) Then
        Mid(strCommand, 1, 1) = "?"
    End If

    strCommand = "mailto:" & Address & strCommand

    Call ShellExecute(Me.hwnd, "open", strCommand, _
        vbNullString, vbNullString, SW_SHOWNORMAL)

End Sub

وفي حدث عند نقر زر أمر أكتب :

' غير مايلزم للإرسال
Call SendMail("بريد المرسل إليه", "اكتب الموضوع", _
        "نص الرسالة", _
        "نسخة كربونية إلى", "نسخة صماء إلى")

ولك تحياتي

--------------------------------------------------------------------------------

الكاتب: ابوحمود. بتاريخ: 8/28/2002 4:59:34 AM

--------------------------------------------------------------------------------

جزاك الله خير

الأخ أبوحمد جزاك الله خير على هذا المثال الرائع الذي استفد منه في برنامج أخر غير الأكسس.

ذلك أن الأكسس يحتوي على الأمر DoCmd.SendObject أرجو أن تجربها فهي تقوم بنفس العمل في المثال.

وحاولت أن أرفق الملف أي ملف من خلال المثال لم استطع.

أرجو المساعدة.

الكاتب: أناوهي بتاريخ: 8/28/2002 11:24:21 PM

--------------------------------------------------------------------------------

وجدتها... وجدتها...

بسم الله الرحمن الرحيم

بعد البحث والتحري وجدتها.

يجب إضافة microsft outlock في المراجع قبل كتابة هذا الأمر

Sub sendmail()
   Dim itm As MailItem
   Set itm = CreateObject("Outlook.Application").CreateItem(0)
   itm.Subject = "A new attachment for you"
   itm.Body = "Here is a new attachment for you:" & Chr(13)
   itm.To = "lolo@soso.com" 'عنوان البريد الذي تريد
   itm.Attachments.add "c:autoexec.bat" 'الملف الذي تريد أرساله ويمكن تكرار لسطر أكثر من مرة إن إردت إرسال أكثر من ملف.

   'itm.Display
   itm.send
End Sub

الكاتب: أناوهي بتاريخ: 9/11