Skip to main content

AccessTr.neT


Accessten Mail Gönderimi

nihatkr
nihatkr
20
23801

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Accessten Mail Gönderimi - Yazar: nihatkr - 31/10/2008, 16:41
Cvp: Accessten Mail Gönderimi - Yazar: alpteqinakbas - 31/10/2008, 18:21
Cvp: Accessten Mail Gönderimi - Yazar: karam - 07/12/2008, 06:19
Cvp: Accessten Mail Gönderimi - Yazar: ozanakkaya - 07/12/2008, 06:25
Cvp: Accessten Mail Gönderimi - Yazar: dengesiz - 17/05/2009, 09:31
Cvp: Accessten Mail Gönderimi - Yazar: karam - 07/12/2008, 06:41
Cvp: Accessten Mail Gönderimi - Yazar: karam - 07/12/2008, 06:43
Cvp: Accessten Mail Gönderimi - Yazar: karam - 07/12/2008, 07:26
Cvp: Accessten Mail Gönderimi - Yazar: youngman34 - 26/05/2009, 21:27
Cvp: Accessten Mail Gönderimi - Yazar: goodfalles - 27/05/2009, 09:30
Cvp: Accessten Mail Gönderimi - Yazar: esrefigit - 27/05/2009, 13:32
Cvp: Accessten Mail Gönderimi - Yazar: yturan - 20/10/2010, 08:21
Cvp: Accessten Mail Gönderimi - Yazar: mehmeser - 27/05/2009, 15:00
Cvp: Accessten Mail Gönderimi - Yazar: yturan - 18/10/2010, 20:46
Cvp: Accessten Mail Gönderimi - Yazar: aakkir - 20/10/2010, 01:36
Cvp: Accessten Mail Gönderimi - Yazar: Seruz - 20/10/2010, 09:57
Cvp: Accessten Mail Gönderimi - Yazar: yturan - 20/10/2010, 12:31
Cvp: Accessten Mail Gönderimi - Yazar: C*e*l*o*y*c*e - 20/10/2010, 13:15
Cvp: Accessten Mail Gönderimi - Yazar: Osman28 - 03/12/2010, 12:42
Cvp: Accessten Mail Gönderimi - Yazar: kadirdursun - 22/07/2013, 19:48
Cvp: Accessten Mail Gönderimi - Yazar: ssdestek - 04/08/2015, 16:29