none
Makro İle otomatik Mail Gönderme RRS feed

  • Soru

  • Merhabalar,

    Ben aşağıdaki şekilde bir makro yazdım fakat E2 den başlayan tarihler geldiğinde otomatik olarak mail atmasını ve mail konu başlıgını da  yine E 1 hücresinde bulunan başlığın eklenmesini istiyorum mümkün müdür ? 

    Yazmış olduğum makro aşağıdaki gibidir. (pek başarılı olduğum söylenemez. internette bulduklarımla yazdım) Değerli desteklerinizi bekler, şimdiden teşekkür ederim.

    Sub Auto_Open()

    Application.OnTime DateValue("02.01.2014") + TimeValue("10:36:00"), "Mail_Gonderimi"
        
    End Sub

    Sub Mail_Gonderimi()

    Dim Outapp As Object
    Dim Outmail As Object

    Set Outapp = CreateObject("Outlook.Application")
    Set Outmail = Outapp.CreateItem(0)

    With Outmail
       .To = "xxxxxxx"
        .CC = ""
        .BCC = ""
        .Subject = "??????"
        .Body = "Merhaba Arkadaşlar," & Chr(13) & _
            "Çizimlerin ve sipariş formalarının teslimi gelmiştir." & Chr(13) & _
            "Bilginize Sunarım."
            .Send
            
    End With

    Set Outmall = Nothing
    Set Outapp = Nothing

    End Sub

    10 Şubat 2015 Salı 11:14

Yanıtlar

Tüm Yanıtlar