E posta ile mail yollama

[arslanbey]

Dim w As Object, d As Object, dosyam As String
Dim outapp As Object, outitem As Object
Set w = CreateObject("Word.Application")
Set d = w.Documents.Add
dosyam = "c:\documents and settings\" & Environ("username") & "\desktop\" & TextBox2.Text & ".doc"
d.SaveAs dosyam
d.Range.Text = TextBox1.Text
d.Close True: w.Quit
Set d = Nothing: Set w = Nothing:
Set outapp = CreateObject("Outlook.Application")
   Set outitem = outapp.CreateItem(0)
        With outitem
            .To = InputBox("Mail adresini giriniz.", "Mail adresi", "hotmail.com.com") ' boş geçmek için "" yazmalısınız.
            .Subject = "Konuyu buraya yazınız"
            .body = "Mail gövdesine yazmak istediğiniz bir şeyi yazınız. "
            .Attachments.Add dosyam
            .Display
        End With
Set outitem = Nothing
Set outapp = Nothing
dosyam = vbNullString

Bu kodlarla excelde outlook ile mail yollaya biliyorum fakat benim istediğim msn adresine ile mail yollamak her bilgisayarda outlook olmaya biliyor ama msn her bilgisayarda oluyor.

 

[arslanbey]

Konuyu yanlış yeremi açtım acaba arkadaşlar.

 

[arslanbey]

Yardım edecek kimse yokmu arkadaşlar.