Accessten Mail Gönderimi
Tarih
31/10/2008 16:41
Konu Sahibi
nihatkr
Yorumlar
20
Okunma
13345
Konuyu Oyla:
  • Derecelendirme: 1/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 1/5 - 1 oy



nihatkr
Ofis 2007-2003-2010
Kullanici Avatari
Onursal
814
29/10/2008
272
İstanbul
Ofis 2007
03/09/2016,04:40
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.


Ek Dosyalar
.rar   Access Ä°le mail ÖrneÄŸi.rar (Dosya Boyutu: 19 KB / İndirme Sayısı: 636)
Cevapla


alpteqinakbas
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
65
31/10/2008
İstanbul
Ofis 2003
15/12/2011,16:29
tşkler...
Cevapla


karam
Aktif Üye
Kullanici Avatari
Aktif Üye
360
01/12/2008
24
Ankara
Ofis 2003
28/03/2009,01:47
Access'in oluşturduğu bir raporu nasıl mail olarak atabiliyoruz bu komuda bir örnek varmı ?
uygulama bence çok güzel olmuş
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.043
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,03:35
attila52 nin örneği. rapor gönderen yok ama raporu excele çevirip gönderen var.


Ek Dosyalar
.rar   post_23_1220836908.rar (Dosya Boyutu: 37,43 KB / İndirme Sayısı: 419)
Cevapla


karam
Aktif Üye
Kullanici Avatari
Aktif Üye
360
01/12/2008
24
Ankara
Ofis 2003
28/03/2009,01:47
ç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


karam
Aktif Üye
Kullanici Avatari
Aktif Üye
360
01/12/2008
24
Ankara
Ofis 2003
28/03/2009,01:47
runtime error veriyor sadece raporu görüyorum ayar yapmak gerekiyor galiba ?
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya