Sub ddd()
       Dim Posta As Object, Ileti As Object
        Dim Mesaj As String, EkDosya As String
        Set Posta = CreateObject("Outlook.Application")
        Set Ileti = Posta.CreateItem(olMailItem)  'olMailItem--->Gonderir    olTaskItem-->Taslak
        EkDosya = "D:\Logo\a.png"
        On Error Resume Next
        With Ileti
            .To = "kimo@hotmail.com;"
            .Attachments.Add EkDosya
            .Subject = "Konu Basligini Yazin"
            .Body = "Govde Metni Yaziniz."
            .Recipients.ResolveAll
            .Display
            .Send
        End With
 
        On Error GoTo 0
        Set Ileti = Nothing
        Set Posta = Nothing
End Sub