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
