Macro to copy subject line

[rollno]

I need a macro to copy subject line of the email from the reading pane itself and also another need a macro to copy email address of a "from sender" to a clipboard...both clipboard.

I already have clipboard dll installed. Please help me with the complete code...it is for outlook 2010..

[Siddharth Rout]

Here at vbforums, we do not give the complete code in a platter. Could you show us what have you tried and where are you stuck and we will definitely help you.

[rollno]

Here at vbforums, we do not give the complete code in a platter. Could you show us what have you tried and where are you stuck and we will definitely help you.

Hi Siddharath,

I am a newbie and learning this VBscripting just on my own by following this forum. just to increase my productivity. I am really not sure what I can do other than surfing on google..but have not got anything that I was looking for. If you guys help it would be great.

Thank you.

[westconn1]

try like

Dim m As MailItem
Set m = ActiveExplorer.Selection(1)
s = m.Subject
f = m.SenderName
Set m = m.Reply
e = m.Recipients(1).Name
m.Close olDiscard

Set cb = CreateObject("clipbrd.clipboard")
cb.Clear
cb.settext s & vbNewLine & f & "[" & e & "]"

[rollno]

try like

Dim m As MailItem
Set m = ActiveExplorer.Selection(1)
s = m.Subject
f = m.SenderName
Set m = m.Reply
e = m.Recipients(1).Name
m.Close olDiscard

Set cb = CreateObject("clipbrd.clipboard")
cb.Clear
cb.settext s & vbNewLine & f & "[" & e & "]"

First of all thank alot to westconn again for helping me....Sharing the knowledge is the greatest thing that you are doing westconn, I really appreciate your help.

Well I need seperate macros to perform this....the 1st to copy subj is working fine, the other seems to be copy the name from the address book rather than email..it should atleast copy first part of the email....is it possible...

Sub subj()
Dim m As MailItem
Set m = ActiveExplorer.Selection(1)
s = m.Subject
Set m = m.Reply
m.Close olDiscard

Set cb = CreateObject("clipbrd.clipboard") 
cb.Clear
cb.SetText s & vbNewLine
End Sub

Sub getemail()
Dim m As MailItem
Set m = ActiveExplorer.Selection(1)

f = m.SenderName
Set m = m.Reply
e = m.Recipients(1).Name
m.Close olDiscard

Set cb = CreateObject("clipbrd.clipboard")
cb.Clear
cb.SetText f & vbNewLine
End Sub

[westconn1]

the senders email address is not included within the email, unless m.senderaddress works for you, it did not for me (maybe different in your version)
m.sendername only returns the name of the sender, not the email address
by creating a reply and reading the email address from the reply .TO is the only way i could find it

cb.settext f & "[" & e & "]"

in my test the sender was not in the address book

the reply part is not required to return the subject

[rollno]

the senders email address is not included within the email, unless m.senderaddress works for you, it did not for me (maybe different in your version)
m.sendername only returns the name of the sender, not the email address
by creating a reply and reading the email address from the reply .TO is the only way i could find it

cb.settext f & "[" & e & "]"

in my test the sender was not in the address book
the reply part is not required to return the subject

Thanks westconn1,

Yes I did remove the reply part from subject....

senderemailaddress works for me only for members who are not in my address book....

Sub getemail()
Dim m As MailItem
Set m = ActiveExplorer.Selection(1)

f = m.SenderEmailAddress
m.Close olDiscard

Set cb = CreateObject("clipbrd.clipboard")
cb.Clear
cb.SetText f & vbNewLine
End Sub

But the challenge if the sender is my contact list it copies like this /O=(companyname)/OU=US/CN=RECIPIENTS/CN=Username_0864.

I was looking if the macro automatically determines the addresses and gives the output according

Members not in my address book - copy emailaddress
Members in my address book - copy just username without their domain.[OR]
members in my address book - Copy just the lastname.

Is it possible?

[westconn1]

as you are in a domain, i can not duplicate your results to test
the method i used above should still work fine
get the .TO email address, from the reply