[FORM] mail gönderirken çıkan uyarı
#1
merhaba,

access projemde,
mail gönderirken eklediğim resimdeki uyarı çıkıyor,
mail gönder kodu da ekli jpegde var.

ilgilenebilirmisiniz arkadaşlar,


Eklenti Dosyaları
.png   mail ekran alıntısı.PNG (Boyut: 32,74 KB / İndirilme: 106)
.png   mail gönderme kodu.PNG (Boyut: 11,49 KB / İndirilme: 123)



  Alıntı
Bu mesajı beğenenler:
#2
Sendobject yerine asagida ki prosedurleri kullanabilirsiniz.
Visual Basic
  1. private sub GONDER_click()
  2. call Eposta("İrsaliyeMail")
  3. end sub


Visual Basic
  1. Function Eposta(RaporAdi As String)
  2. On Error GoTo Exit_Function:
  3. Dim oOutlook As Outlook.Application
  4. Dim oEmailItem As MailItem
  5.  
  6. If oOutlook Is Nothing Then
  7. Set oOutlook = New Outlook.Application
  8. End If
  9.  
  10. Set oEmailItem = oOutlook.CreateItem(olMailItem)
  11. With oEmailItem
  12.  
  13. .To = Me.MAIL
  14. '.CC = "dsezgin@....com.tree"
  15.  
  16. .Subject = " Irsaliye" & Now
  17. .Body = " Gonderilen" & vbCr & _
  18. "Irsaliye" & vbCr & _
  19. " HUSEM"
  20. If Dir("D:\" & RaporAdi & ".pdf", vbNormal) <> "" Then Kill "D:\" & RaporAdi & ".pdf"
  21. DoCmd.OpenReport RaporAdi, acViewPreview, , , acHidden
  22. DoCmd.OutputTo acOutputReport, RaporAdi, "PDF Format (*pdf)", "D:\" & RaporAdi & ".pdf", False, , , acExportQualityPrint
  23. .Attachments.Add "D:\" & RaporAdi & ".pdf", olByValue, 1, "Husem"
  24. DoCmd.Close acReport, RaporAdi
  25. Kill "D:\" & RaporAdi & ".pdf"
  26. .Send
  27. End With
  28. Set oEmailItem = Nothing
  29. Set oOutlook = Nothing
  30. Exit Function
  31. Exit_Function:
  32. End Function





  Alıntı
Bu mesajı beğenenler:
#3
Merhaba sn dsezgin,
kodları uygulamaya çalıştım fakat başaramadım,
örnek vt. nını yükledim, eğer ilgilenme imkanınız olursa sevinirim.


bu kodları kullandığımda gönderiyorum, D SÜRÜCÜSÜNDEKİ KAYITLI DOSYAYI gönderiyor.

D SÜRÜCÜSÜNE PDF olarak kaydedebilsem sorun olmayacak.


Private Sub GONDER_click()

dosya = "D:\İrsaliye.pdf"' kaydettiğim dosya. hazır dosya

Dim oItem As Outlook.MailItem
Dim oitems As Items
Set oOutlook = New Outlook.Application
Set oItem = oOutlook.CreateItem(olMailItem)
With oItem
.Subject = "irsaliye"
.To = "husemdogan"
'.CC = ""
.Body = "irsaliye"
'.Body = ""
Set myAttachments = oItem.Attachments
myAttachments.Add dosya
Set myAttachments = Nothing
.ReadReceiptRequested = False
.DeleteAfterSubmit = True
.Display
'.Send
End With
Set oOutlook = Nothing
Set oItem = Nothing
'Kill Dosya
End Sub

bide

DoCmd.OutputTo acOutputReport, RaporAdi, acFormatPDF, "D:\" & RaporAdi & ".pdf", False, , , acExportQualityPrint
OUTPUTTO komutunda hata veriyor sanki. BEN 2003 kullanıyorum.
iyi çalışmalar,
saygılarımla...




Eklenti Dosyaları
.rar   Yeni Microsoft Office Access Uygulaması.rar (Boyut: 79,98 KB / İndirilme: 91)



  Alıntı
Bu mesajı beğenenler:
#4
private sub GONDER_click()
call Eposta("İrsaliye") '*****Prosedur calistiriliyor.****
end sub
İrsaliye denimi ayni zamanda rapor adidir.

RaporAdi = İrsaliye gibi dusunebilirsiniz.
Function Eposta(RaporAdi As String) prosedurunu kopyalayin



  Alıntı
Bu mesajı beğenenler:
#5
DoCmd.OutputTo acOutputReport, RaporAdi, acFormatPDF, "D:\" & RaporAdi & ".pdf", False, , , acExportQualityPrint

şimdi denemedim ama, üstteki kırmızı alanda hata veriyor.



  Alıntı
Bu mesajı beğenenler:
#6
(08-02-2017, 13:29)husem demiş ki: DoCmd.OutputTo acOutputReport, RaporAdi, "PDF Format (*pdf)", "D:\" & RaporAdi & ".pdf", False, , , acExportQualityPrint

şimdi denemedim ama, üstteki kırmızı alanda hata veriyor.
, , , acExportQualityPrint kismini silip deneyin.

Office 2003 komut dizini
DoCmd.OutputTo ObjectType, ObjectName, OutputFormat, OutputFile, AutoStart

OutputFormat Cevrime destegi
acFormatASP
acFormatDAP
acFormatHTML
acFormatIIS
acFormatRTF
acFormatSNP
acFormatTXT
acFormatXLS
PDF Format (*pdf)

acFormatPDF yerine acFormatSNP secebilirsiniz, gonderilen yerde anlik gorme(SNP) uygulamasi olmali.

2003 versiyonu her ne kadar saglam alt yapisi olsada yedek parcasi olmayan arac gibi yeni teknoloji avantajlarindan yararlanamazsiniz. Daha uzun yollar ile ihtiyac karsilanabilir. Koyu olan bicimi deneyebilirsiniz.

Office 2003 Versiyon(acformatPDF) icin oneriler.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Randevu Tarihine Göre Uyarı Vermesi Ve Renklendirme hegu 4 302 11-02-2026, 23:31
Son Mesaj: hegu
  Yaklaşan Tarihte Uyarı Alma xosmaner 3 379 14-11-2025, 21:53
Son Mesaj: özgülapt
  Depo Takibinde Malzeme Yoksa Uyarı Vermesi hegu 2 360 22-04-2025, 21:56
Son Mesaj: hegu
  Sorgudaki Bilgileri Otomatik Tek Tek Mail Gönderme cirdakc 3 467 08-11-2024, 21:40
Son Mesaj: dsezgin
  Ileri Butonu Sona Geldiğinde Uyarı Vermiyor Yeni Kayıt Açıyor. programmer67 2 487 25-06-2024, 16:49
Son Mesaj: programmer67
  Yeni Kayıt Açarken Uyari evren89 2 375 15-06-2024, 10:04
Son Mesaj: evren89
  Ilgili Raporu Mail Gönderme Mtaner 6 1.538 21-05-2024, 07:09
Son Mesaj: dsezgin
  Access Uyarı Mesajını Kapatmaa benuva 3 449 01-11-2023, 00:47
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi