Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
31/10/2008 16:41
Konu Sahibi
nihatkr
Yorumlar
20
Okunma
17378
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
 89
 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ı: 716)

Kullanici Avatari

alpteqinakbas

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



Kullanici Avatari

karam

Aktif Üye
Aktif Üye
 60
 360
 45
 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
 11.251
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,14:43
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ı: 465)
"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
 45
 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
 45
 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.