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