(22/04/2021, 16:38)hegu yazdı: "To = "BURAYA ALICININ E-MAIL ADRESİ YAZILACAK" yazan yere müşteri formundaki mail adresini nasıl aldırabiliriz. Konu ve mail içeriği hep aynı kalabilir. Fakat gönderilen mail adresini formun mail kısmından alabilir mi? Böyle bir işlem söz konusu olabilir mi? Teşekkür ederim. Emeğine sağlık.

Formunuzdaki MAIL alanında kayıtlı hesaba e-mail gönderilmesi için kodu aşağıdaki ile değiştirin. Subject ve mesaj metni için ister kodunuz içinde sabit bir metin girip öyle bırakabilirsiniz Arzu ederseniz de aşağıdaki kodu örnek alarak Subject ve body'ye Dim as string olarak tanımlayıp bu verilerin giriinini yapılacağı textboxlar kullanark bunların değerlerini atayabilirsiniz.

Private Sub Report_DblClick(Cancel As Integer)



Dim RptName, FilePath, MailAdr As String

Dim appOutLook As Outlook.Application

Dim MailOutLook As Outlook.MailItem



MailAdr = [Forms]![MUSTERILER2]![MAIL].Value

RptName = [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"

FilePath = "C:\Users\Hegu\OneDrive\Masaüstü\Emirsan\Teklifler\"

DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, FilePath & RptName

MsgBox "PDF Aktarımı Tamamlandı", vbInformation, "Report Exported as PDF"

 

If Len(Dir(RptName)) > 0 Then

  Kill RptName

End If



Set appOutLook = CreateObject("Outlook.Application")

Set MailOutLook = appOutLook.CreateItem(olMailItem)

    With MailOutLook

        .To = MailAdr

        .Subject = "BURAYA KONU YAZILACAK"

        .HTMLBody = "E-MAIL METNİNİZ YAZILACAK"

        .Attachments.Add FilePath & RptName

        .Send

    End With

    MsgBox "Mail Gönderildi", vbInformation, "Report Sent as PDF"

End Sub

İyi çalışmalar dilerim