Otomatik Mail Gönderme Koduna "Add" Satırı Eklemek

[baydeniro]

Merhaba arkadaşlar. Aşağıda forumdan aldığım, otomatik mail gönderme ile ilgili bir kod mevcuttur. Bu koddaki Add satırı işlev görmüyor. Yani orada adresi verilen dosyayı maile eklemiyor. Bu kodu nasıl düzeltmek gerekir !! Yardımlarınız için teşekkür ederim.


Sub OutlookMailGönder()
Dim OutApp As Object
Dim OutMail As Object
Dim MsgBody As String
On Error Resume Next
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
OutApp.Visible = True
Set OutMail = OutApp.CreateItem(0)
'****************************************************
MsgBody = "Sayfa Güncellenmiştir<br><br><br>" & _
"İyi Çalışmalar."
'****************************************************
With OutMail
.To = "john@yahoo.com"
.CC = "paul@hotmail.com"
.BCC = "belmondo@yahoo.com"
.Subject = "Günlük Satış Raporu"
.HTMLBody = MsgBody
'.Attachments.Add ("C:\Documents and Settings\Belgelerim\Rapor.xls")
'.Display
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[hamitcan]

Ba&#351;&#305;ndaki t&#305;rnak i&#351;aretini kald&#305;r&#305;n.

 

[baydeniro]

Sayın hamitcan yardımınız için çok teşekkür ederim. Tırnakları kaldırmama rağmen olmuyor. Acaba sistemdeki virüs denetlemesinden kaynaklanan bir durum olabilir mi ?

 

[hamitcan]

Bir ka&#231; denemede bulundum -kendi mailimle-&#231;al&#305;&#351;t&#305; kodlar. Sizin g&#252;venlik sisteminiz ile ilgili bir problem olabilir. Bir de, g&#246;nderece&#287;iniz dosya ismini do&#287;ru yaz&#305;p yazmad&#305;&#287;&#305;n&#305;zdan emin olun.

 

[baydeniro]

Teşekkür ederim sayın Hamitcan. Eve gidince bir de oradan deneyeceğim. Bu kod sadece Outlook bazlı mı çalışır ?

 

[hamitcan]

Evet. &#199;&#252;nk&#252; bir Outlook uygulamas&#305; tan&#305;mlan&#305;yor.

 

[baydeniro]

Sayın hamitcan bu kodu diğer sunuculara nasıl uyarlayabilirim. Örneğin hotmail'e !!!

 

[hamitcan]

Sitede &#246;rnekler vard&#305; bu konuda. Ara&#351;t&#305;rman&#305;z&#305; &#246;neririm.

 

[baydeniro]

Teşekkür ederim.

 

[Zeki Gürsoy]

SMTP hizmeti veren hesab&#305;n&#305;z varsa, bence CDO kullan&#305;n.

http://www.excel.web.tr/showthread.php?t=49662&highlight=mail

 

[baydeniro]

Sayın Zeki Gürsoy, belirttiğiniz linkteki örneği aşağıdaki gibi kendime uyarladım. Ancak objCDOMail.Send aşamasında takıldı.

Sub Mail()
Dim objCDOMail As Object
Set objCDOMail = CreateObject("CDO.Message")
objCDOMail.To = "jean@hotmail.com"
objCDOMail.From = "paul@hotmail.com"
objCDOMail.CC = "belmondo@yahoo.com"
objCDOMail.Subject = "hotmail deneme"
objCDOMail.Addattachment "C:\qwerty.xls"

objCDOMail.TextBody = "Merhabalar"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.hotmail.com"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kullanıcıadı"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "şifre"
objCDOMail.Configuration.Fields.Item("urn:schemas:httpmail:importance") = 2
objCDOMail.Configuration.Fields.Item("urn:schemas:mailheader:X-Priority") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOMail.Configuration.Fields.Update
objCDOMail.Send

Set objCDOMail = Nothing
End Sub

 

[Zeki Gürsoy]

Bildi&#287;im kadar&#305;yla hotmail smtp hizmetini &#252;cretli veriyormu&#351;. &#214;rne&#287;in "gmail" hesab&#305; edinirseniz sorun kalmaz.

 

[baydeniro]

Sayın Zeki Gürsoy, kod aşağıdaki aşamada takılıyor.

Set objCDOMail = CreateObject("CDO.Message")