Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
28/10/2018 16:13
Konu Sahibi
serkan1985
Yorumlar
5
Okunma
332
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
serkan1985

serkan1985

Aktif Üye
79323
Se.... Çe....
 33
 74
 255
 21/01/2016
0
 Bursa
 
 Ofis 2010 32 Bit
 Bugün,21:13
Çözüldü 
Arkadaşlar merhaba uygulamam da mail gönder mevcut mail gönderiyorum fakat kayda ait eki mail içeriğine iliştirerek gönderemiyorum. Konu hakkında yardımıza ihtiyacım var desteğiniz için şimdiden teşekkürler.

SQL 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
30
31
Private Sub Command20_Click()

Dim C As Integer
C = MsgBox("emin misin?", vbYesNo + vbQuestion + vbDefaultButton1, "1")
If C = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
           
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            With MailOutLook

            .To = Me.Email_Address
            .Subject = Me.GEMİ & SEFER
            .HTMLBody = Me.mess_text
            .SendObject = Me.EK
            If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
                .Attachments.Add (Me.Mail_Attachment_Path)
            End If
            '.DeleteAfterSubmit = True   'This would let Outlook send th note without storing it in your sent bin
            .Send
            End With
            DoCmd.Close
            '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



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.100
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,20:08
Merhaba, outlook programına ek ekleme olayı sadece dizinde bulunan dosya için geçerlidir. Access tablosundaki eki maile ekleyemezsiniz.
Önce ek olarak kaydedilen dosyayı dizine aktarmanız gerekli. Kodun tamamı aşağıdaki gibi olmalı.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
'Dim C As Integer'
'C = MsgBox("Gözetim memurlarına iletiyorsun geri dönüş yok emin misin?", vbYesNo + vbQuestion + vbDefaultButton1, "Sharp Eye") '
'If C = vbNo Then'
'DoCmd.RunCommand acCmdUndo'
'End If'
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem

Dim GDosyaAdi  As String
Dim rsKayit As DAO.Recordset2
Dim GEk

Set rsKayit = Me.Recordset
Set GEk = rsKayit.Fields("EK").Value
GDosyaAdi = Environ("Temp") & "\" & GEk.Fields("FileName")

If Len(Dir(GDosyaAdi)) > 0 Then

    Kill GDosyaAdi

End If


Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
    With MailOutLook

            .to = Me.Email_Address
            .Subject = Me.GEMİ & SEFER
            .HTMLBody = Me.mess_text

            GEk.Fields("FileData").SaveToFile Environ("Temp")
            .Attachments.Add GDosyaAdi
            
            '.DeleteAfterSubmit = True   'This would let Outlook send th note without storing it in your sent bin
            .Send
            End With
            DoCmd.Close
            'MsgBox MailOutLook.Body
            Exit Sub
email_error:
            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & err.Description
            Resume Error_out
Error_out:



Kodun stabil çalışması için önce "Microsoft Outlook XX.0 Object Library" referansını eklemeniz gerekli.

Koddaki 


Visual Basic Code
Set rsKayit = Me.Recordset
Set GEk = rsKayit.Fields("EK").Value
GDosyaAdi = Environ("Temp") & "\" & GEk.Fields("FileName")
GEk.Fields("FileData").SaveToFile Environ("Temp")


Kısmı, ek alanındaki dosyayı bilgisayarınızdaki Temp dizinine kaydeder. Maile ek olarak bu kaydedilen dosya kullanılır.


"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. 

...........
serkan1985

serkan1985

Aktif Üye
79323
Se.... Çe....
 33
 74
 255
 21/01/2016
0
 Bursa
 
 Ofis 2010 32 Bit
 Bugün,21:13
Ozan bey çok teşekkür ederim emeğinize sağlık sorunum sayenizde çözümlenmiştir. +rep +rep



Oğuz Türkyılmaz

Oğuz Türkyılmaz

Aktif Üye
95272
Oğ.... Tü....
 51
 105
 531
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 22/04/2019,21:10
Ozan Bey Outlook değilde info@grupkozmetik.com şeklinde bir özel mail adresi kullanıyorsak. Bu durumda Mail Gönderme ayarlarında ve Accessden aldığımız raporu mail ile  ek dosya olarak göndermek için yukardaki kodlarda ne gibi bir revizyon yapmak gerekir. Teşekkürler.


Access Çekirgesi 
[Resim: img-cray.gif]



...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.100
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,20:08
(29/11/2018 16:16)Oğuz Türkyılmaz Adlı Kullanıcıdan Alıntı: Ozan Bey Outlook değilde info@grupkozmetik.com şeklinde bir özel mail adresi kullanıyorsak. Bu durumda Mail Gönderme ayarlarında ve Accessden aldığımız raporu mail ile  ek dosya olarak göndermek için yukardaki kodlarda ne gibi bir revizyon yapmak gerekir. Teşekkürler.

Merhaba, kodlarda hiçbir değişiklik yapamazsınız. Bu kodu kullanacaksanız mail adresinizi outlooka eklemeniz gerekiyor. Bu örnek outlook aracılığı ile mail gönderir. 

Outlook olmadan gönderebilmeniz için SMTP Hesabıyla E-mail Gönderme Uygulaması konusunu incelemeniz gerekiyor. Mail ayarlarını sunucunuzdan öğrenebilirsiniz.


"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. 

Oğuz Türkyılmaz

Oğuz Türkyılmaz

Aktif Üye
95272
Oğ.... Tü....
 51
 105
 531
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 22/04/2019,21:10
(29/11/2018 16:21)ozanakkaya Adlı Kullanıcıdan Alıntı:
(29/11/2018 16:16)Oğuz Türkyılmaz Adlı Kullanıcıdan Alıntı: Ozan Bey Outlook değilde info@grupkozmetik.com şeklinde bir özel mail adresi kullanıyorsak. Bu durumda Mail Gönderme ayarlarında ve Accessden aldığımız raporu mail ile  ek dosya olarak göndermek için yukardaki kodlarda ne gibi bir revizyon yapmak gerekir. Teşekkürler.

Merhaba, kodlarda hiçbir değişiklik yapamazsınız. Bu kodu kullanacaksanız mail adresinizi outlooka eklemeniz gerekiyor. Bu örnek outlook aracılığı ile mail gönderir. 

Outlook olmadan gönderebilmeniz için SMTP Hesabıyla E-mail Gönderme Uygulaması konusunu incelemeniz gerekiyor. Mail ayarlarını sunucunuzdan öğrenebilirsiniz.

Teşekkür ederim. Hemen okuyorum.


Access Çekirgesi 
[Resim: img-cray.gif]



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Saat 17:00Da Otomatik Mail Atsın haziran4 6 229 26/04/2019, 15:52
Son Yorum: ozanakkaya
Çözüldü Mysql 5.7 Php 7.3 Guncellemesinden Sonra Smtp Mail Gönderemiyorum zetyu 6 293 10/04/2019, 00:19
Son Yorum: zetyu
Çözüldü Mail Gönderirken Gövdeye Yazı Aralarına Resim Eklemek Ve Satır Ara Boşlukları zetyu 6 371 22/03/2019, 23:52
Son Yorum: zetyu
Çözüldü Veritabanı Üzerinden Mail Göndermek sercann 1 200 21/02/2019, 23:33
Son Yorum: ozanakkaya
Çözüldü Accessde Mail Gönderiminde Çıkan Mesaj Kutusu Hk. Yardım Mr.Midnight 8 359 19/02/2019, 22:30
Son Yorum: Mr.Midnight

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