AccessTr.neT

Tam Versiyon: Accessten Mail Gönderimi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
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 ?
Sayfalar: 1 2 3 4