Hazır mail formatı

[endymion]

Ekteki dosyada da anlattığım gibi amacım hazır mail listelerine hazır mailleri göndermek rutin bir iş olduğu için çok vaktimi alıyor.

Şimdiden teşekkürler.

 

[Zeki Gürsoy]

CDO tavsiye ederim. Arka arkaya 100 er masaj gönderebilirsiniz.

http://www.accessforumlari.com/showthread.php?tid=131

 

[Levent Menteşoğlu]

Eğer Outlook ile göndermek isterseniz aşağıdaki linktende faydalanabilirsiniz.

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

 

[endymion]

İki linkide inceledim, sayın Levent'in gönderdiği linkte baya detaylı bir durum var. Benim istediğim hazır basit bir dosya ile yapmak, göndereceğim zaten en fazla 5 çeşit hazır format var.Sayın Zeki'nin linkinde ise access kullanılmış benim access bilgim 0 bu yüzden çözemiyorum.

Şimdiden teşekkürler.

 

[Zeki Gürsoy]

Verdiğim link access konusu değildi. Ben proseduru tekrar yazdım. SMTP hizmeti veren hesaba sahip olmanız gerekir.

Sub CDO_Mail()
Dim CDO_msg  As Object
Dim CDO_conf As Object

Set CDO_msg = CreateObject("CDO.Message")
Set CDO_conf = CreateObject("CDO.Configuration")

With CDO_conf
.Fields.Item( _
    "http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields.Item( _
    "http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields.Item( _
    "http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Fields.Item( _
    "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields.Item( _
    "http://schemas.microsoft.com/cdo/configuration/sendusername") = "benim@gmail.com"
.Fields.Item( _
    "http://schemas.microsoft.com/cdo/configuration/sendpassword") = "şifrem"
.Fields.Item( _
    "http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '465
.Fields.Item( _
    "urn:schemas:httpmail:priority") = 1
.Fields.Item( _
    "urn:schemas:httpmail:importance") = 2
.Fields.Update
End With

With CDO_msg
    Set .Configuration = CDO_conf
    .To = "birisi@hotmail.com"
    .From = "benimad&#305;m <benim@gmail.com>"
    .Subject = "test konusu"
    .TextBody = "test mesaj&#305;"
   [COLOR=DarkGreen] '.AddAttachment "C:\Test.xls"[/COLOR]
    .Send
End With

Set CDO_msg = Nothing
Set CDO_conf = Nothing

[COLOR=DarkGreen] 'CDO Constant       Numeric Value   Definition
'cdoPriorityNonUrgent    -1           Nonurgent priority
'cdoPriorityNormal        0           Normal priority
'cdoPriorityUrgent        1           Urgent priority
'cdoLow                   0           Low importance
'cdoNormal                1           Normal importance
'cdoHigh                  2           High importance[/COLOR]
End Sub

 

[arnavut]

Sayın Zeki Gürsoy,
aşağıdaki kodu modül1 olarak kaydettim ve modül içinden run yaptığımda mail gönderiyor.
Peki form içerisindeki bir butona basıldığında bu modülü nasıl çalıştırabiliriz?

 

[Zeki Gürsoy]

Private Sub CommandButton_Click()
Call CDO_Mail
End Sub

olarak yazın.

 

[arnavut]

çok teşekkür ederin Sayın, Zeki Gürsoy.
bu konuyla ilgilli olarak son bir şey daha sormak istiyorum, lütfen kusura bakmayın, başınızı ağrıtıyorum.

aynı maili bir kaç kişiye göndermek için ne yapılabilir.?

ben,
.cc = "birisi@hotmail.com"
.bcc = "birisi@hotmail.com" diye bişeyler uydurdum ama olmadı

 

[Zeki Gürsoy]

Güzel soru. Liste kaynağı hangi hücre aralığındadır?
Prosedur her çalıştığında 100 mail birden gönderebilir. 200 kişiye gidecekse 100 + 100 şeklinde prosedur 2 kez çalışarak gönderebilir.

 

[arnavut]

Merhaba Zeki bey,
Mail gönderme olayını dün gece evdeki bilgisayarımdan denediğimde oluyordu. Fakat iş yerindeki bilgisayarımda bir türlü çalıştıramıyorum. Herşeyi kontrol ediyorum fakat hiç bir değişiklik yok, ama çalışmıyor.
Şu hata mesajını alıyorum;

 

[Zeki Gürsoy]

İnternet veya güvenlik kaynaklı olabileceğini tahmin ediyorum. Şu dosyanın varlığını da kontrol edin. c:\windows\system32\cdosys.dll

 

[arnavut]

kontrol ettim, bu dosya var Zeki bey. 1,97 MB'lık bi dosya
ama dediğiniz gibi güvenlik ile ilgili birşey bu heralde.
Bu sorunu herhalde aşamayız değil mi?