pdf olarak mail gönder

1 2 3
13/02/2017, 13:26

husem

sn atoz112, merhaba
örnek dosya üzerinde bahsettiğiniz kodu değiştirdiğimde hata veriyor, 
eklediğim örnek dosya üzerinden yardımcı olabilirmisiniz acaba,

yada , dosyayı bilgisayarıma pdf formatında kaydetsem buda işime yarar, bilgisayardaki bir dosyayı gönderirken sorun yaşamıyorum çünkü.

iyi çalışmalar.
13/02/2017, 13:28

atoz112

sayın husem,


bahsettiğiniz hataya yönelik olarak;

olduğu esnadaki halini içeren ekran görüntüsünü konunuza dahil ediniz.teşekkürler.

bilginize...iyi çalışmalar,saygılar.
13/02/2017, 19:04

husem

MERHABA,
Access 2003 den 2010 a geçtim.
gönder butonuna mail ekine pdf dosyayı ekliyor. mail iletini açıyor. '   açmadan göndermesi için hangi kodu İLAVE etmeliyim acaba.


Private Sub GONDER_click()
DoCmd.SetWarnings (False)
Dim RpAdi As String
RpAdi = "İrsaliye"
DoCmd.OpenReport RpAdi, acViewPreview, , , acHidden
DoCmd.SendObject acSendReport, RpAdi, acFormatPDF, Me.MAIL, , , "Konuyu Yaz", "iletilecek mesaji yaz", True
DoCmd.Close acReport, RpAdi
DoCmd.SetWarnings (True)
End Sub
13/02/2017, 19:51

atoz112

sayın husem,

Alıntı:örnek dosya üzerinde bahsettiğiniz kodu değiştirdiğimde hata veriyor, 

konunuzun 7.mesajında bir hatadan bahsetmiştiniz fakat,

Alıntı:gönder butonuna mail ekine pdf dosyayı ekliyor. mail iletini açıyor. '   açmadan göndermesi için hangi kodu İLAVE etmeliyim acaba.

9.mesajda ise farklı bir husustan (talepten) bahsediyorsunuz?

eğer bir hata durumu yoksa ve sadece iletinin çıkmasınını engellemek istiyorsanız,yapmanız gereken;

DoCmd.SendObject acSendReport, RpAdi, acFormatPDF, Me.MAIL, , , "Konuyu Yaz", "iletilecek mesaji yaz", True

kod satırındaki TRUE ifadesini FALSE olarak değiştirerek kullanmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.
13/02/2017, 23:31

husem

(13/02/2017, 19:51)atoz112 yazdı: sayın husem,

Alıntı:örnek dosya üzerinde bahsettiğiniz kodu değiştirdiğimde hata veriyor, 

konunuzun 7.mesajında bir hatadan bahsetmiştiniz fakat,

Alıntı:gönder butonuna mail ekine pdf dosyayı ekliyor. mail iletini açıyor. '   açmadan göndermesi için hangi kodu İLAVE etmeliyim acaba.

9.mesajda ise farklı bir husustan (talepten) bahsediyorsunuz?

eğer bir hata durumu yoksa ve sadece iletinin çıkmasınını engellemek istiyorsanız,yapmanız gereken;

DoCmd.SendObject acSendReport, RpAdi, acFormatPDF, Me.MAIL, , , "Konuyu Yaz", "iletilecek mesaji yaz", True

kod satırındaki TRUE ifadesini FALSE olarak değiştirerek kullanmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.

2010 kurduktan sonra mail gönderirkenki izinver, reddet uyarısı gitti.
mesajımdada belirttiğim gibi gönderirken outlook mail iletisini açıyor. göndermiyor. outlook iletisinde göndere tıklayınca gönderiyor. benim istediğim, anlatmaya çalıştığım direkt gönderebilirmi. ikinci kez outlook iletisinde göndere tıklamayayım.

teşekkür ederim iyi akşamlar.
14/02/2017, 14:26

atoz112

sayın husem,

Alıntı:outlook mail iletisini açıyor. göndermiyor. outlook iletisinde göndere tıklayınca gönderiyor. benim istediğim, anlatmaya çalıştığım direkt gönderebilirmi. ikinci kez outlook iletisinde göndere tıklamayayım.

ifadenize yönelik olarak;
konunuzun 10.mesajında yanıtı verilmişti.

yapmanız gereken,GÖNDER butonunun içeriğini,

DoCmd.SetWarnings (False)

Dim RpAdi As String
RpAdi = "İrsaliye"
DoCmd.OpenReport RpAdi, acViewPreview, , , acHidden
DoCmd.SendObject acSendReport, RpAdi, acFormatPDF, Me.MAIL, , , "Konuyu Yaz", "iletilecek mesaji yaz", False
DoCmd.Close acReport, RpAdi

DoCmd.SetWarnings (True)

kod satırı ile değiştirerek kullanmanız yeterlidir.

FALSE ifadesi,Outlook Belgesini açmaksızın direkt olarak gönderme işlemini sağlar.

TRUE ise,öncesinde bir kontrol etmek sureti ile Outlook Belgesi açılır son tetkiklerden sonra gönderme işlemi sağlanır.

bilginize...iyi çalışmalar,saygılar.
1 2 3