Skip to main content

AccessTr.neT


Ekran Görüntüsünü Mail Atma Hk.

Ekran Görüntüsünü Mail Atma Hk.

Çözüldü #1
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ı?

[Resim: do.php?imgf=151188452701821.jpg]
.rar Mail ekran.rar (Dosya Boyutu: 974,68 KB | İndirme Sayısı: 7)
Cevapla
#2
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
Cevapla
#3
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?

[Resim: do.php?imgf=151202280122791.jpg]
Cevapla
#4
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.
Cevapla
#5
Bilgilendirme için teşekkürler ozan bey biraz uğraşayım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da