write into excel

i have code below capturing sendername and date sent to excel with specific subject
but i will also need to capturing received time against the sendername in excel
please help me in the below code.
thanks for your great help,

Code:

---

i = Sheets("Sheet1").Range("A65536").End(xlUp).Row + 1
  For Each olMail In Fldr.Items

For Each olMail In Fldr.Items
    MyArray = Trim(Split(olMail.Subject, "-")(0))
If olMail.SenderName = "xxx" Or olMail.SenderName = "xxxx" Or olMail.SenderName = "xxxxx" Then

  If MyArray = "Password Permit" Then
    ActiveSheet.Cells(i, 1).Value = olMail.To
  ActiveSheet.Cells(i, 2).Value = olMail.SentOn
 i = i + 1
 End If
End If
 
 Next olMail
 
    Set Fldr = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
     
 
 Application.ScreenUpdating = True

---

Quote:

---

but i will also need to capturing received time against the sendername in excel

---

But I answered this question on 21st Jul 2010 ;)

http://www.vbforums.com/showpost.php...6&postcount=10

Kool
i tried it . but i could not get received time against the sendername in excel
captured received time in differrent row not the same row which senndername is ? could you help me

Show the code that you are using for received time.

this is the code for received time

kamakshi: The code is correct...

Can you show me the complete code so that I can test it at my end?

Also

Quote:

---

For Each olMail In Fldr.Items

---

is mentioned twice in post#1. Is it a typo?

here is the code

kamakshi, I feel that you have just copied and pasted that code in your Application from a different source. No offense meant but do you actually understand what the code is doing?

kool
before this code it copied everyhtin senderanme and sent on in excel
but i need to compare sendername in excel against outlook adn copy the received time the exact column
for example fir the row 15 i havesender name the macro corresponding row columnn 3 will be paste received time from outlook
the below code i added it does not go in

Hi!
from outlook to excel copied sendername and date sent on
and thenk outlook received mail check with excel sendername and then copy received item in the excel
first one part is fine but second part it picksup from outlook but not in right row. Could anybody help me

Set c = .Find(olItem.SenderName, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=SearchOrder, SearchDirection:=SearchDirection, MatchCase:=False, SearchFormat:=False)