Merhaba,

Access 2003'ten mail gönderirken, Outlook'un verdiği uyarı mesajını nasıl iptal edebilirim?
"Bu program sizin yerinize otomatik olarak e-posta göndermeye çalışıyor."

Sayın nihatkr;
ilk mesajınıza eklediğiniz bu program benim aradığım program ama fark şu; benim outlook hesbaımda aynı anda 20 kişiden fazla mail atamıyorum. Bu programı şöyle dizayn edebilir misiniz?
1) Mailleri tek tek göndersin. Böylece 20 olan mail sınırına takılmamış olacağım.
2) Mail adreslerini bir tablodan yada sorgudan alsın.

(31/10/2008, 16:41)nihatkr yazdı: Accesten mail gönderme
Private Sub Command20_Click()

Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
   .BodyFormat = olFormatRichText
   .To = Me.Email_Address
   .Subject = Me.Mess_Subject
   .HTMLBody = Me.Mess_Text
   If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
       .Attachments.Add (Me.Mail_Attachment_Path)
   End If
   '.DeleteAfterSubmit = True 'This would let Outlook send the note without storing
    it in your sent bin
   .Send
End With
'MsgBox MailOutLook.Body
Exit Sub
email_error:
MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
Resume Error_out
Error_out:
End Sub

Örnek Dosya Ektedir.

Merhaba, öncelikle eline sağlık çalışıyor ama
mail göndere basınca Outlook ileti ekranı çıksın karşıma, birde Outlookda yeni mail dediğinde Kime kısmı bir gizli birde açıkta olmak üzere iki seçeneklidir. Eğer Kime kısmına çoklu mail yazıp göndersem her kes her kesim mailini görebilir ben bu değilde Gizli Kime alanına eklemesini istiyorum ki maili alan kişi diğer kişilerin mailini görmesin
teşekkür ederim.