Sub mailgonder()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
Dim KullaniciAdi As String
    KullaniciAdi = InputBox("Lutfen bir adres giriniz", "POSTA ADRESI", "????@hotmail.com", 100, 100)
    With OutMail
    .To = KullaniciAdi 
    .Subject = "deneme" ' Bu kısıma konuyu giriniz.
    .Body = "Sayın Yetkili Bu mail bilgi için gönderilmiştir."
    '.Attachments.Add "C:\test.txt" 'Ekleyeceğiniz dosya ve yolu belirtin.
    .Send ' or display
    '.Display 'or send
    End With
    Set NewMail = Nothing
    Set OutApp = Nothing
End Sub