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
Hi I need to copy email address to clipboard using macro.The above...
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim sName As String
Dim sPath As String
Dim enviro As String
On Error Resume Next
enviro = CStr(Environ("username"))
Const olmsg = 3
ReplaceCharsForFileName sName, "_"
sPath = enviro &...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.