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.

tşkler...

Access'in oluşturduğu bir raporu nasıl mail olarak atabiliyoruz bu komuda bir örnek varmı ?
uygulama bence çok güzel olmuş

attila52 nin örneği. rapor gönderen yok ama raporu excele çevirip gönderen var.

çok teşekür ederim Excel düz yazılarda işe yaramıyor rtf yapıp Word'e atıp gönderiyoruz başka yapacak ama bazı raporlarda işe yaerayabilir bir deneyeyim teşekür ederim

runtime error veriyor sadece raporu görüyorum ayar yapmak gerekiyor galiba ?