E-Mail Hakkında

[aoeflatun]

Arkadaşlar bir konuda yardımlarınızı bekliyorum.
Excel dosyası açıldığında otomatik olarak mail göndermek istiyorum. Bunu yaparken outlok açılıyor ve onay vermemi istiyor.
İstediğim onayın otomatik olarak bana sorulmadan verilmesi ve gönderilmesi.
Yardımlarınız çin teşekkür ederim.

 

[hamitcan]

Private Sub Workbook_Open()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
    .To = "deneme@deneme.com"
    .CC = ""
    .BCC = ""
    .Subject = "aaa"
    '.Body = "a"
    .Attachments.Add ThisWorkbook.Path & "\" & ActiveWorkbook.Name
    .Send
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
    MsgBox "Mail Gönderilmiştir", vbInformation

End Sub

şeklinde dener misiniz ?

 

[aoeflatun]

Çok teşekkür ederim Hamitcan,
Ama işimi yine görmedi, yine bir menü çıkıyor " bir program sizin adınıza otomatik mail göndermeye çalışıyor.................." diyor ve aşağıda; izin ver, reddet, yardım butonları var.
Yapmak istediğim bu menünün hiç çıkmadan mailin gönderilmesi.
Teşekkür ederim.

 

[hamitcan]

Outlook Makro Güvenlik ayarlarınızı yüksek ise düşük yada orta seviyeye alarak tekrar deneyebilir misiniz ?

 

[aoeflatun]

E- Mail

Hamitcan arkadaşım,
Çok teşekkür ederim, yapmış olduğunuz öneri ile işimi hallettim.
Görüşmek dileğiyle