Recent content by rollno

  1. R

    Macro to copy email address

    Hi, Thanks for your response...Its SMTP i guess..but not sure..how to confirm? your new code is for my first code or for my second code?...
  2. R

    Macro to copy email address

    Sub GetSenderMailAddress() Dim olItem As Outlook.MailItem If Application.ActiveExplorer.Selection.Count = 0 Then MsgBox "No Items selected!", vbCritical, "Error" Exit Sub End If Set olItem = Application.ActiveInspector.currentItem If olItem.sender.AddressEntryUserType =...
  3. R

    Macro to copy email address

    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...
  4. R

    Move sent items emails to hard disk

    got it thank u so much - - - Updated - - - got it thank u so much
  5. R

    Move sent items emails to hard disk

    I did not get you?
  6. R

    Move sent items emails to hard disk

    Could you please add that code and send it to me, I am really not sure how the coding works...I am searching and doing it on my own..
  7. R

    Move sent items emails to hard disk

    Hi the lastest above code posted by me works...but it saves the email before it is sent...can it be modified so it can be copied after it is sent?
  8. R

    Move sent items emails to hard disk

    Wow my latest code is working now..we can close this thread...thank you all.
  9. R

    Move sent items emails to hard disk

    Actually I do nolt want to add the received time to the file name. Can you please help, I have another code as well but it does not work either...if there are no special characters in the subject line then it works fine . ------------------------------------Private Sub...
  10. R

    Move sent items emails to hard disk

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

    Move E-Mails to Another Folder

    Re: Need help with saving "sent items" email automatically to desktop folder I am sorry If I post my problem in your thread...actually I had a similar problem the code I put does not work for me and the reason that I can think is because of illegal character...I am not that good in coding...
  12. R

    Move E-Mails to Another Folder

    Need help with saving "sent items" email automatically to desktop folder Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim fName As String Const olmsg = 3 fName = "C:\Users\Unknown\Desktop\Sent emails\" & Item.Subject & ".msg" Item.SaveAs fName, olmsg...
Back
Top