ارسل بريد

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

اخواني.. بغيت طريقه ارسل فيها التقرير "Report" .. طبعاً موجود فالأكسس طريقه.. بس المشكله يفتح الأوتلوك و انا اضيف هناك الإيميل....

انا ابي يرسل البريد للشخص اللي اضع ايميله في مربع التكست بوكس

هذا الكود للزر لما اضغط عليه..

بس ناقصني كيف اضيف انه ياخذ الايميل من التكست بوكس

Private Sub mail_Click()
On Error GoTo Err_mail_Click

    Dim stDocName As String

    stDocName = "preview"
    DoCmd.SendObject acReport, stDocName

Exit_mail_Click:
    Exit Sub

Err_mail_Click:
    MsgBox Err.Description
    Resume Exit_mail_Click
    
End Sub

و جزاكم الله كل خيير