AccessTr.neT
Accessten Mail Gönderimi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Dersleri (https://accesstr.net/forum-access-dersleri.html)
+--- Konu Başlığı: Accessten Mail Gönderimi (/konu-accessten-mail-gonderimi.html)

Sayfalar: 1 2 3 4


Accessten Mail Gönderimi - nihatkr - 31/10/2008

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.


Cvp: Accessten Mail Gönderimi - alpteqinakbas - 31/10/2008

tşkler...


Cvp: Accessten Mail Gönderimi - karam - 07/12/2008

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


Cvp: Accessten Mail Gönderimi - ozanakkaya - 07/12/2008

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


Cvp: Accessten Mail Gönderimi - karam - 07/12/2008

ç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


Cvp: Accessten Mail Gönderimi - karam - 07/12/2008

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