Skip to main content

AccessTr.neT


Acces Tablosuna Ootlock Mailini Linklemek.

Acces Tablosuna Ootlock Mailini Linklemek.

Çözüldü #1
değerli hocalarım merhabalar.
bilgisayarlarımızda microsoft ürünü olan outlook,excel,acces uygulamalarını kullanmaktayız
çalışmalarımda acces tablolar kullanmaktayım ve köprü kısmına birçok konuyu link kurabiliyorum herhangi bir dosya veya web sayfası
outlook ta gelen kutusundaki herhangi bir maili kolay bir şekilde acces tablomdaki verilere köprü kurmak istiyorum ancak böyle bir kolaylık bulamadım.
yani acces tablomda bir veriyi takip etmekteyim bu bir yedek parça listesi olabilir 
şu an listede geçen parça numarası hakkında birsürü mailleşme yapıyoruz ben bu mailleri bir klasörde toplayıp köprü yapmaktayım bu yöntem eziyetli bir yöntem zaten outlook ta duran bir mail acces yada Excel tabloya linklene bilse harika olurdu diye düşünüyorum 
ustalar bunun bir yolu varmıdır ?
Cevapla
#2
Merhaba,
Access Dış Veri Sekmesinden, Yeni veri kaynağını seçtikten sonra Diğer Kaynaklar, Outlook Klasörünü seçerek gelen maillerinizi Access tablosuna bağlayabilirsiniz. Burada herhangi bir alana köprü oluşturmayı deneyebilirsiniz.
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Cevapla
#3
Access için örnek vereyim exceele uyarlarsınız. Örneğinizden yola çıkarak parça numarası ile ilgili maillerin subbject/konu kısmında bu verinin olduğunu varsayalım. Access içinden Vba ile outlooku açıp gelen kutusunu tarayarak bu konuya sahip maillerin outlook kimliklerini köprü olarak ekleyebilirsiniz. Örnek kod şöyle olacaktır
    Dim olApp As Object, olNs As Object, olFolder As Object, olMail As Object
Dim rs As DAO.Recordset
Dim StrKonu As String, MailLink As String
Dim i As Integer, counter As Integer

'#__Köprü olarak eklenecek veriyi belirleme, örneğin maildeki konu alanı
StrKonu = InputBox() '/textbox/field vs gibi alanlardan alabilirsiniz
If StrKonu = "" Then
MsgBox "Konu yok!", vbExclamation 'verilerinizde aranacak konu başlığının olup olmadığını denetleyip bilgi verir
Exit Sub
End If

'#__Outlook başlatıp
Set olApp = CreateObject("Outlook.Application")
Set olNs = olApp.GetNamespace("MAPI")
Set olFolder = olNs.GetDefaultFolder(6) 'Gelen Kutusu / Inbox olarak belirledim ancak ihtiyaca göre özelleştirilebilir.

Set rs = CurrentDb.OpenRecordset("veriierinizinkaynağı", dbOpenDynaset)
counter = 0

'1._Tüm gelen kutusunu tara
For i = 1 To olFolder.Items.Count
Set olMail = olFolder.Items(i)

'2._Konuya uygun mail/mailler bulunursa Outlook kimliğini köprü olarak ekle
If olMail.Class = 43 Then 'MailItem bulundu mu?
If InStr(1, olMail.Subject, StrKonu, vbTextCompare) > 0 Then
MailLink = "outlook:" & olMail.EntryID 'Bulunan mailin ouutlook kimliğini al ve köprü olarak ekle

rs.AddNew
rs!Konu = olMail.Subject
rs!MailLink = MailLink
rs.Update
counter = counter + 1
End If
End If
Next i

rs.Close

'3._Denetim amaçlı eklendi, eklenen köprü ve mail sayısını veya mail bulunamadığını kullanıcıya bildir.
If counter > 0 Then
MsgBox counter & " adet mail bulundu ve eklendi.", vbInformation
Else
MsgBox "Belirtilen konuda mail bulunamadı.", vbInformation
End If

Örnek dosyanız ve çalışmanız olmadığı için tamamen teorik bilgi olarak yol göstermesi açsından paylaşıyorum. Buradan hareket ile çalışmanızı yaparsanız takıldığınız yerlerde yardımcı olmaya çalışırız.
Cevapla
#4
(22/04/2025, 15:32)onur_can yazdı: Merhaba,
Access Dış Veri Sekmesinden, Yeni veri kaynağını seçtikten sonra Diğer Kaynaklar, Outlook Klasörünü seçerek gelen maillerinizi Access tablosuna bağlayabilirsiniz. Burada herhangi bir alana köprü oluşturmayı deneyebilirsiniz.

hocam haklısınız acces e bağla yaparak gelen mailin içeriğini görebiliyorum ancak acces ten gelen maili outlook uygulaması ile direk nasıl açabilirim?? iistediğim acces tablomda linki köprü yaparak drek outlook sayfası olarak açtırabilmek.
Cevapla
#5
Nasıl yapılacağı ve doğrudan outlookta nasıl açılacağı 3 nolu mesajda açıklanmış durumda daha açık nasıl anlatalım?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task