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.