Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
31/10/2008 16:41
Konu Sahibi
nihatkr
Yorumlar
20
Okunma
17051
Konuyu Oyla:
  • Derecelendirme: 1/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 1/5 - 1 oy
Kullanici Avatari

nihatkr

Ofis 2007-2003-2010
Onursal Üye
814
29/10/2008
272
İstanbul
Ofis 2007
03/09/2016,04:40
Accesten mail gönderme

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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ı: 712)

Kullanici Avatari

alpteqinakbas

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



Kullanici Avatari

karam

Aktif Üye
Aktif Üye
 60
360
01/12/2008
24
Ankara
Ofis 2003
01/10/2017,02:02
Access'in oluşturduğu bir raporu nasıl mail olarak atabiliyoruz bu komuda bir örnek varmı ?
uygulama bence çok güzel olmuş



Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 40
10.963
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,00:25
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ı: 462)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

karam

Aktif Üye
Aktif Üye
 60
360
01/12/2008
24
Ankara
Ofis 2003
01/10/2017,02:02
ç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



Kullanici Avatari

karam

Aktif Üye
Aktif Üye
 60
360
01/12/2008
24
Ankara
Ofis 2003
01/10/2017,02:02
runtime error veriyor sadece raporu görüyorum ayar yapmak gerekiyor galiba ?




Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.