Search results

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 &...