Otomatik Mail'de Teyit Sorusu Sormaması

[baydeniro]

Merhaba arkadaşlar. Forumdan öğrendiğim bazı kodlar yardımı ile artık bir çalışma dosyası içinden otomatik olarak belirli adreslere mail atabiliyorum. Sorum şu : Maili atma sürecinin bir parçası olarak Teyit istiyor. Acaba bu olması gereken, olmazsa olmaz bir aşama mıdır yoksa bu soruyu sormadan da maili atmasının bir yolu var mıdır ?

 

[Levent Menteşoğlu]

Aşağıdaki linkteki 5 nolu mesajımı okumanızı öneririm.

Yazdırma alanının jpeg olarak mail ile gönderilmesi.

 

[baydeniro]

Teşekkürler

Sayın Levent Menteşoğlu, ilginiz için çok teşekkürler. Sizin verdiğiniz bilgi doğrultusunda incelediğim sitede aşağıdaki kodu elde ettim. Bu kod benim işim göörecek bir koda benziyor. Ancak .Send aşamasında takılıyor. Bunu aşmak olanağı var mı !!!

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "Fill in your SMTP server here"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg
Set .Configuration = iConf
.To = "belmondo@yahoo.com"
.CC = ""
.BCC = ""
.Add = "C:\DENEME\Mail - Otomatik Mail.xls"
.From = """JP"" <john.paul@gmail.com>"
.Subject = "Important message"
.TextBody = strbody
.Send
End With

End Sub

 

[Zeki Gürsoy]

Sayın Levent Menteşoğlu, ilginiz için çok teşekkürler. Sizin verdiğiniz bilgi doğrultusunda incelediğim sitede aşağıdaki kodu elde ettim. Bu kod benim işim göörecek bir koda benziyor. Ancak .Send aşamasında takılıyor. Bunu aşmak olanağı var mı !!!

5. mesajı inceleyin. SMTP hizmeti veren e-mail hesabınız olmalı.

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

 

[baydeniro]

Teşekkür ederim sayın Zeki Gürsoy. İlginize çok teşekkür ederim. Çözümü en kısa deneyeceğim. Sağlıcakla kalın.