Launch default mail program to send an email message with attachment

by Holden (2 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 2^nd May 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
'Put 'Microsoft shell controls and automation' to references

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



    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"

Download this snippet Add to My Saved Code

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

No comments have been posted about Launch default mail program to send an email message with attachment. Why not be the first to post a comment about 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 Comments

Post your comment

Difficulty