03/12/2010, 12:42
Accessten Mail Gönderimi
22/07/2013, 19:48
kadirdursun
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.
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.
04/08/2015, 16:29
ssdestek
(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.