Skip to main content

AccessTr.neT


Accessten Mail Gönderimi

nihatkr
nihatkr
20
23790

Accessten Mail Gönderimi

#1
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.
.rar Access Ä°le mail ÖrneÄŸi.rar (Dosya Boyutu: 19 KB | İndirme Sayısı: 775)
FX-Etopla
Liste Kutusu Oluşturma
Cevapla
#2
tşkler...
Cevapla
#3
Access'in oluşturduğu bir raporu nasıl mail olarak atabiliyoruz bu komuda bir örnek varmı ?
uygulama bence çok güzel olmuş
Cevapla
#4
attila52 nin örneği. rapor gönderen yok ama raporu excele çevirip gönderen var.
.rar post_23_1220836908.rar (Dosya Boyutu: 37,43 KB | İndirme Sayısı: 503)
Cevapla
#5
ç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
Cevapla
#6
runtime error veriyor sadece raporu görüyorum ayar yapmak gerekiyor galiba ?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task