excel makro ile mail gönderme problemi

[tiryaki1979]

Merhaba Arkadaşlar,

Aşağıdaki kod ile mail gönderimi yapılırken belirtilen .send kısmında belirtilen hata alınmaktadır. Sebebiyle ilgili bilgilerinizi rica ederim.

Sub Gonder()
Dim OutlookUygulama As Object
Dim Mail As Object
Set OutlookUygulama = New Outlook.Application
Set Mail = OutlookUygulama.CreateItem(0)
With Mail
.To = "muratkizilay79@gmail.com" 'Siz buraya dongu kurup exceldeki mailleri eklersiniz.
.CC = "İsteğe bağlı"
.BCC = "İsteğe bağlı"
.Subject = "Konu"
.Body = "Mesaj"
.Send
End With
Set Mail = Nothing
Set OutlookUygulama = Nothing
End Sub


HATA

Run-time error'-2147467259(80004005)
Outlook bir veya daha fazla adı tanımıyor.

 

[ayhanfuat]

.CC ve .BCC'ye email adresi atamıyorsanız ondan dolayı sorun çıkarıyor olabilir. O satırları çıkarıp ya da onlara da mail adresi girerek denerseniz çözülmesi lazım.

 

[tiryaki1979]

teşekkür ederim hcm.