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

Derecelendirme: 1/5 - 1 oy

nihatkr

Ofis 2007-2003-2010
Kullanici Avatari
Altın Ü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ı: 680)
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


Kullanici Avatari
Altın Üye
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ş


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.879
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,17:01
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ı: 444)
Cevapla

karam


Kullanici Avatari
Altın Üye
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


Cevapla

karam


Kullanici Avatari
Altın Üye
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 ?


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.