Outlook Yardım

[sertguler]

Merhaba Arkadaşlar,

Outlooktan haftalık olarak belirli kişilere basit bir mail atıılması gerekmekte bunu otomatik hale getirebilirmiyiz acaba?

 

[Emir Hüseyin Çoban]

. . .

Outlookta makrolar etkin olmalı.
Kodları outlookun ThisOutlookSession kısmına yapıştırın.
Kapatıp, tekrar açtığınızda etkin olacaktır.
Gönderim şartı, günlerden Pazartesi ise.

Private Sub Application_Startup()
    On Error Resume Next
    Dim objOutlook As Object
    Dim objMail As Object
    If Format(Date, "dddd") Like "Pazartesi" Then
        Set objOutlook = CreateObject("Outlook.Application")
        Set objMail = objOutlook.CreateItem(0)
        With objMail
            .To = "mail@gmail.com"    ' mailin gideceği adres
[COLOR="Green"]'            .CC = ""
'            .BCC = ""[/COLOR]
            .Subject = "Konu"
            .Body = "Metin Gövdesi"
            .Save
[COLOR="Green"]'            .Display[/COLOR]
            .Send
        End With
    End If

    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub

. . .

 

[sertguler]

Hüseyin Bey Teşekkürler....

 

[sertguler]

Hüseyin Bey bu şekilde yazdım ama olmadı bir sorun olabilirmi???


Private Sub Application_Startup()
On Error Resume Next
Dim objOutlook As Object
Dim objMail As Object
If Format(Date, "dddd") Like "Salı" Then
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "XXXXX@XX.com"
.CC = "xx@xx.com"
.BCC = "xx@xx.com"
.Subject = "Konu"
.Body = "Metin Gövdesi"
.Save
.Display
.Send
End With
End If

Set objMail = Nothing
Set objOutlook = Nothing
End Sub

 

[Emir Hüseyin Çoban]

. . .

Denedim çalışıyor. Kodları uyguladıktan sonra. Outlooktan çıkıp girmeniz gerekiyor.
Kod tetiklnemesi outlookun açılışıdır.

. . .