write into excel

[kamakshi]

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,

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

[Siddharth Rout]

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

[kamakshi]

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

[Siddharth Rout]

Show the code that you are using for received time.

[kamakshi]

this is the code for received time

[Siddharth Rout]

kamakshi: The code is correct...

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

Also

For Each olMail In Fldr.Items

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

[kamakshi]

here is the code

[Siddharth Rout]

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?

[kamakshi]

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

[kamakshi]

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

[kamakshi]

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