AccessTr.neT

Arkadaşlar merhaba ekte gemi_son_durum formunda herhangi bir gemiye tıklayıp çıkan Gemi_Son formunu ek olarak değilde  formun ekran görüntüsünü mail içeriğinde gönderebilme durumumuz var mı?

Merhaba,
Access İle Ekran Görüntüsü (screenshot) Alma Uygulaması bağlantısındaki uygulama ile açık formun ekran görüntüsünü alabilirsiniz.

Sub SendMail()

Dim SendID

Dim CCID

Dim Subject

Dim Body

Dim olMail As MailItem



Set otlApp = CreateObject("Outlook.Application")

Set olMail = otlApp.CreateItem(olMailItem)

Set Doc = olMail.GetInspector.WordEditor

Dim colAttach As Outlook.Attachments

Dim oAttach As Outlook.Attachment







SendID = "mail gidecek adresler"

CCID = "bilgi"

Subject = [GEMİ] & " " & [SEFER] & " " & " Sefer sayılı geminin anlık hareketlerine ilişkin bilgilendirme hk."

Body = "Mesaj Body"

With olMail

    .To = SendID

    If CCID <> "" Then

      .CC = CCID

    End If

    .Subject = Subject

    

    TempDir = Environ("Temp")

    

' ekran resmini aldığınız formun dizini.

    

    .Attachments.Add TempDir & "\EczaneTakipResim.png", olByValue, 0



    .HTMLBody = .HTMLBody & "<br><B>Embedded Image:</B><br>" _

                & "<img src='cid:EczaneTakipResim.png'" & "width='500' height='200'><br>" _

                & "</span>"

    .Display

    .Send

End With



MsgBox ("you Mail has been sent to " & SendID)



End Sub

Ozan bey ekran resmini alıyorum fakat mail atmak için konu kodu butona tanımladığım zaman hata alıyorum. Acaba exchange mail kullandığım için bu hata çıkıyor olabilir mi?

Kod o şekilde kullanılmaz.

Sub Sendmail işlevdir. Bu kod ayrı yere yazılıp Komut butonunun tıklandığında olayına 

Call SendMail() 

yazılır. Ayrıca Referanslarada Outlook referansının da eklenmesi gerekli.

Bilgilendirme için teşekkürler ozan bey biraz uğraşayım.