+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Dersleri (https://accesstr.net/forum-access-dersleri.html)
+--- Konu Başlığı: Accessten Mail Gönderimi (/konu-accessten-mail-gonderimi.html)
Cvp: Accessten Mail Gönderimi - Osman28 - 03/12/2010
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."
Cvp: Accessten Mail Gönderimi - kadirdursun - 22/07/2013
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.
Cvp: Accessten Mail Gönderimi - ssdestek - 04/08/2015
(31/10/2008, 16:41)nihatkr yazdı: Accesten mail göndermeMerhaba, öncelikle eline sağlık çalışıyor ama
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.
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.