• Home
 · 
• Internet/HTML
 · 
• Launch default mail program to send an email message with attachment

Launch default mail program to send an email message with attachment

Launch default mail program to send an email message with attachment

API Declarations


'Put 'Microsoft shell controls and automation' to references



Rate Launch default mail program to send an email message with attachment

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim oFolder As Folder
    Dim oFolderItem As FolderItem
        
    Set oFolder = oShell.NameSpace("C:\")
    Set oFolderItem = oFolder.Items.Item("AUTOEXEC.BAT")
    
    oFolderItem.InvokeVerb "&Copy"
    
    Set oFolder = oShell.NameSpace(9)
    Set oFolderItem = oFolder.Items.Item("Mail Recipient.MAPIMail")
    
    oFolderItem.InvokeVerb "&Paste"