08-02-2017, 02:01 (En son düzenleme: 08-02-2017, 02:44 husem.)
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...
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.