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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

serkan1985

Aktif Üye
Se.... Çe....
 33
 72
 250
 21/01/2016
0
 Bursa
 
 Ofis 2010 32 Bit
 20/01/2019,16:58
Çö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



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.746
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,18:01
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. 

Kullanici Avatari

serkan1985

Aktif Üye
Se.... Çe....
 33
 72
 250
 21/01/2016
0
 Bursa
 
 Ofis 2010 32 Bit
 20/01/2019,16:58
Ozan bey çok teşekkür ederim emeğinize sağlık sorunum sayenizde çözümlenmiştir. +rep +rep



Kullanici Avatari

Oğuz Türkyılmaz

Altın Üye
Oğ.... Tü....
 50
 89
 461
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 Dün,23:52
Ozan Bey Outlook değilde [email protected] ş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.


Tesekkur

Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.746
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,18:01
(29/11/2018 16:16)Oğuz Türkyılmaz Adlı Kullanıcıdan Alıntı: Ozan Bey Outlook değilde [email protected] ş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. 

Kullanici Avatari

Oğuz Türkyılmaz

Altın Üye
Oğ.... Tü....
 50
 89
 461
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 Dün,23:52
(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 [email protected] ş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.


Tesekkur


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Gelen Mail Kutusu tekinuygun 2 126 17/01/2019, 17:42
Son Yorum: tekinuygun
Çözüldü Zamanlı Mail Gönderimi Hk. serkan1985 6 192 27/12/2018, 17:54
Son Yorum: haliliyas
Çözüldü Saatlik Mail Gönder sadikkavakli 13 1.458 20/12/2018, 10:58
Son Yorum: haliliyas
Çözüldü Raporu Pdf Formatında Ekli Mail Olarak Gönderme Oğuz Türkyılmaz 2 167 16/12/2018, 22:39
Son Yorum: Oğuz Türkyılmaz
Çözüldü Kontrol Ettirme Ve Mail Gönderme untouchable 5 198 15/12/2018, 15:26
Son Yorum: ozanakkaya

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