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 ?
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Otomatik Mail'de Teyit Sorusu Sormaması
- Konbuyu başlatan baydeniro
- Başlangıç tarihi
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki linkteki 5 nolu mesajımı okumanızı öneririm.
Yazdırma alanının jpeg olarak mail ile gönderilmesi.
Yazdırma alanının jpeg olarak mail ile gönderilmesi.
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
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
- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,400
- Excel Vers. ve Dili
- Office 365 (64 bit) - Türkçe
5. mesajı inceleyin. SMTP hizmeti veren e-mail hesabınız olmalı.
http://www.excel.web.tr/showthread.php?t=49662&highlight=cdo_mail