Excel VBA to Attach File And Automatically Send Email

[malay]

Sorry for late response. Yes, the code attached is to remove attachments but in fact i need item attached to the mail. I just gave you the example from the Ms office help on how to forward mail. Can you do me a favor by writing the complete code to open and forward saved mails with attachments as discussed earlier because i am confused how to write as you found a solution that i cannot understand.

[malay]

Hi.

The code you provided can open the ".msg" file in forward mode but "From.." option in outlook is showing the person's name from whom the mail has been originally received. This is why the mail cannot be forwarded clicking the send button. Please tell me how to change the original "From.." to the current sender's mail id...

Sub SendMSGFiles()

    Dim objItemMSG As Object
    Dim strFolderLocation As String
    Dim objFolder As Object
    Dim strFile As String
    Dim olApp As Object
    
    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
    Err.Clear: On Error GoTo 0: On Error GoTo -1
    If olApp Is Nothing Then
        Set olApp = CreateObject("Outlook.Application")
    End If
    Set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select MSG folder location", 0, "")
    If Not objFolder Is Nothing Then
        strFolderLocation = objFolder.self.Path
    Else
        Exit Sub
    End If
    strFile = Dir(strFolderLocation & "\*.msg")
    While strFile <> ""
        Set objItemMSG = olApp.CreateItemFromTemplate(strFolderLocation & "\" & strFile)
        objItemMSG.To = "abc@xyz.com"
        objItemMSG.Send
        strFile = Dir
    Wend
    
End Sub