(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.