Outlook tan veri süz

[ADER_34]

Merhaba hayırlı geceler ben outlooktan gelen mailllerin içeriğine göre veri süzüp excelde sayfa 1 e aktarmak,istiyorum şöyle ki gelen mailler içeriğinde "V-OD" içeren veri varsa çaklışma kitabında sayfa1 e aktarmak istiyorum, mümkünmü kolay gelsin teşekkürler..

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin, mesaj içeriğinde "V-OD" geçiyorsa gönderen adres ve mesajı "A:B" hücrelerine ekleyecektir.

[SIZE="2"]Sub ara()
Dim a As Object
Dim msg, b, c
Dim d As Long
Dim e As Integer
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
s1.Range("A1:B" & Rows.Count) = Empty
    Set a = CreateObject("Outlook.Application")
    Set b = a.GetNamespace("MAPI")
    Set c = b.GetDefaultFolder(6)
    For Each msg In c.Items
d = UBound(Split(msg.body, "V-OD"))
If d > 0 Then
e = e + 1
s1.Cells(e, 1) = msg.SenderEmailAddress
s1.Cells(e, 2) = msg.body
End If
Next
End Sub[/SIZE]