Sürekli Mail Gönderme

[temizerb]

Merhaba,
bir excel dosyam var bunu istediğim mail adresine her 3 dakikada bir mail atabilirmiyim.

 

[temizerb]

Arkadaşlar merhaba,

yardım edebilecek kimse yok mu ?

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Dosya yolunu kendinize göre düzenlersiniz.

Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:03:00"), "Mail_Workbook_Outlook"
End Sub

Sub Mail_Workbook_Outlook()
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .TO = "deneme@deneme.com"
        .CC = ""
        .BCC = ""
        .Subject = "MAIL TEST"
        .Body = "Merhaba," & _
                Chr(10) & Chr(10) & _
                "Bu bir deneme mailidir..."
        .Attachments.Add ("C:\Test.xls")
        .Send
        '.Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
    Auto_Open
End Sub

 

[temizerb]

Hata ile karşılaştım

Aşağıdaki kodu kullanabilirsiniz.

Dosya yolunu kendinize göre düzenlersiniz.

Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:03:00"), "Mail_Workbook_Outlook"
End Sub

Sub Mail_Workbook_Outlook()
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .TO = "deneme@deneme.com"
        .CC = ""
        .BCC = ""
        .Subject = "MAIL TEST"
        .Body = "Merhaba," & _
                Chr(10) & Chr(10) & _
                "Bu bir deneme mailidir..."
        .Attachments.Add ("C:\Test.xls")
        .Send
        '.Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
    Auto_Open
End Sub

Merhaba,

Mail_Workbook_Outlook makrosu çalışmıyor diye hata veriyor ama çözemedim.

 

[Korhan Ayhan]

Merhaba,

Kodu deneyerek göndermiştim. Makroyu uyguladığınız dosyanın sürekli açık olması gerekiyor.

 

[temizerb]

Merhaba,

Kodu deneyerek göndermiştim. Makroyu uyguladığınız dosyanın sürekli açık olması gerekiyor.

Merhaba,

dosyayı açık bıraktım ancak ekteki hata mesajını verdi sanırım ben bir şeyi eksik yapıyorum.

 

[Korhan Ayhan]

Önerdiğim kodu boş bir kitaba uygulayın. Dosya yolunuda göndermek istediğiniz dosyanın yoluna göre değiştirin. Sonra makroyu çalıştırın.