Arkadaşlar merhaba uygulamam da mail gönder mevcut mail gönderiyorum fakat kayda ait eki mail içeriğine iliştirerek gönderemiyorum. Konu hakkında yardımıza ihtiyacım var desteğiniz için şimdiden teşekkürler.

Private Sub Command20_Click()



Dim C As Integer

C = MsgBox("emin misin?", vbYesNo + vbQuestion + vbDefaultButton1, "1")

If C = vbNo Then

DoCmd.RunCommand acCmdUndo

End If

           

            Set appOutLook = CreateObject("Outlook.Application")

            Set MailOutLook = appOutLook.CreateItem(olMailItem)

            With MailOutLook



            .To = Me.Email_Address

            .Subject = Me.GEMİ & SEFER

            .HTMLBody = Me.mess_text

            .SendObject = Me.EK

            If Left(Me.Mail_Attachment_Path, 1) <> "<" Then

                .Attachments.Add (Me.Mail_Attachment_Path)

            End If

            '.DeleteAfterSubmit = True   'This would let Outlook send th note without storing it in your sent bin

            .Send

            End With

            DoCmd.Close

            'MsgBox MailOutLook.Body

            Exit Sub

email_error:

            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & err.Description

            Resume Error_out

Error_out:



End Sub