Filyasyon görevindeyim. Eve gidince inşallah denerim. İlginize teşekkür ederim.

Sayın atoykan işlem gerçekleşti. Mail gönderildi. Benim öğrenmek istediğim modül kısmına bir mail adresi giriyoruz. Fakat göndereceğimiz farklı kişi olunca ne yapmamız lazım. Müşteri formunda kişilerin mail adresi var. "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.

(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

sayın atoykan ilk seferinde mail gönderdi fakat tekrar denediğimde göndermiyor. Gönderdim yazıyor uyarı penceresi. mail gelmiyor. Farklı bir müşteriye farklı mail adresi (hotmail) yine göngerdim uyarısını veriyor fakat mail gelmiyor.

Not: Ben bunu yazarken mesaj kutum doldu. Emeğine sağlık çok teşekkür ederim.

Rica ederim, iyi çalışmalar