Excelden Outlook ile Mail Gönderirken Gelen Uyarı

[Kavinsky]

Herkese Merhabalar.
Aşağıdaki kod ile ben mevcut çalışma sayfasını mail gönderiyorum. Fakat resimde göreceğiniz üzere mail göndermeden önce izin ver diye soruyor.Ben bunu sormasını istemiyorum. Makro çalıştığı anda hiçbir şekilde muhattap olmadan bu maili iletmesi için uğraşıyorum. Güvenlik ayarlarından bulmaya çalıştım fakat bulamadım. Bu uyarıyı ortadan kaldırma imkanımız olur ise yardımlarınızı rica ediyorum . İyi çalışmalar.

Sub SENDEMAIL()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "ssssss@hotmail.com"
.Subject = "Giriş Çıkış"
.Body = "Mevcut ayın giriş çıkış listesidir."
.Attachments.Add "C:\Users\Muhasebe-Pc\Desktop\Giris.xls"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

 

[Asri]

Bu şekilde dener mi siniz?

.To = "asriakdeniz@gmail.com" mail adresini değiştiriniz.

Dim evnout As Object
Dim evnmailitem As Object
Dim FSO As Object

Sub mail_gonder()
    On Error GoTo mailatma
    Set evnout = CreateObject("Outlook.Application")
    Set evnmailitem = evnout.CreateItem(0)

    With evnmailitem
      .Subject = "Konu deneme"
      .To = "asriakdeniz@gmail.com"
      '.Attachments.Add maildosya
      .HTMLBody = "Merhaba," & "<br>" & "<br>" & "Deneme Mesajı."
      .send
    End With
mailatma:
    Set evnmailitem = Nothing
    Set evnout = Nothing
End Sub

 

[Kavinsky]

Bu şekilde dener mi siniz?

.To = "asriakdeniz@gmail.com" mail adresini değiştiriniz.

Dim evnout As Object
Dim evnmailitem As Object
Dim FSO As Object

Sub mail_gonder()
    On Error GoTo mailatma
    Set evnout = CreateObject("Outlook.Application")
    Set evnmailitem = evnout.CreateItem(0)

    With evnmailitem
      .Subject = "Konu deneme"
      .To = "asriakdeniz@gmail.com"
      '.Attachments.Add maildosya
      .HTMLBody = "Merhaba," & "<br>" & "<br>" & "Deneme Mesajı."
      .send
    End With
mailatma:
    Set evnmailitem = Nothing
    Set evnout = Nothing
End Sub

Yardımlarınız için teşekkür ederim , fakat yine aynı uyarıyı verdi.

 

[Korhan Ayhan]

Bağlantıyı inceleyiniz.

Outlook üzerinden mesaj gönderirken güvenlik uyarısı