mailto: Attachment [Unresolved]

[HAVocINCARNATE29]

I'm using:

BodyData = "Please%20give%20a%20full%20description%20of%20the%20bug%20below%3A%0D%0A%0D%0A"
Attachment = "c:\autoexec.bat"
 
ShellExecute Me.hwnd, "open", "mailto:[email protected]" & _
            "?subject=" & Trim(App.Title) & "%20Bug%20Report" & _
            "&body=" & BodyData _
            & "&attach=" & Chr(34) & Attachment & Chr(34), vbNullString, vbNullString, SW_SHOWNORMAL

what's wrong? why doesnt the attachment attach??

[HAVocINCARNATE29]

*bump*

[ranma_at]

hmm to me it looks you re just attaching a string not a file;

U have outlook ?

Sub OutlookNewMessage()
 
Dim olMail As MailItem
Set olMail = Application.CreateItem(olMailitem)
With olMail
.To = "[email protected]"
.Subject = "Beergarden"
.Body = "Meet you there"
.attachments.Add _
Source:="C:\Beer.jpg"
.Display
End With
 
End Sub

[JordanChris]

Does ShellExecute and the MailTo functionality allow attachments? I thought it only allowed parameters of MailTo, cc, bcc, Subject and body. See Knowledge Base 188019 on MS site.

[HAVocINCARNATE29]

First thing, i'm try to make this independent of any specific email client, so i dont want to use outlook specific code.

this example i found implys that you can attach a file...

Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" _
       Alias "ShellExecuteA" _
       (ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
 
Private Const SW_SHOWNORMAL = 1
 
Private Sub SendMail(lhWnd As Long, Optional Address As String, _
    Optional Subject As String, Optional Body As String, _
    Optional CC As String, Optional bcc As String, Optional Attachement As String)
    
'*********************************************************
'********                                         ********
'******** bygger opp en e-post melding, og sender ********
'******** denne ved å benytte default mail system ********
'********                                         ********
'******** NB!! Attachement fungerer KUN med       ********
'******** Outlook og outlook express              ********
'********                                         ********
'*********************************************************
 
    Dim strCommand As String
    
    'bygger opp "mail-strengen"
    If Len(Subject) Then strCommand = "&Subject=" & Subject
    If Len(Body) Then
        Body = Replace(Body, "&", "%26")
        Body = Replace(Body, " ", "%20")
        Body = Replace(Body, vbCrLf, "%0D%0A")
        Body = Replace(Body, vbCr, "%0D")
        Body = Replace(Body, vbLf, "%0A")
        strCommand = strCommand & "&Body=" & Body & "%0D%0A"
    End If
    
    If Len(CC) Then strCommand = strCommand & "&CC=" & CC
    If Len(bcc) Then strCommand = strCommand & "&BCC=" & bcc
    If Len(Attachement) Then strCommand = strCommand & "&Attacth=" & Chr(34) & Attachement & Chr(34)
 
    'passer på at første tegn er et ?-tegn
    If Len(strCommand) Then
        Mid(strCommand, 1, 1) = "?"
    End If
    
    'legger til teksten "mailto:" og hoved adresse
    strCommand = "mailto:" & Address & strCommand
    
    'Starter default mail program v.h.a shellexecute
    Call ShellExecute(lhWnd, "open", strCommand, _
        vbNullString, vbNullString, SW_SHOWNORMAL)
 
End Sub
 
Private Sub Command1_Click()
    SendMail Me.hwnd, "[email protected]", "Test", "Ok, this is the test message.", "[email protected]", , "C:\Autoexec.bat"
End Sub

[James Stanich]

The code you posted should send thefilename sent. Does it not work?

If not, are you sure it's a valid file?

[VB4fun]

Not sure if this will help....but found it when I was searching for close to the same thing awhile back.

Not the author, so cant take the credit.

Private Sub cmdEmail_Click()
Dim emailstuff As String

emailStuff = App.Path & "\file.mdb"

MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = "[email protected]"
MAPIMessages1.AttachmentPathName = emailStuff
MAPIMessages1.ResolveName

MAPIMessages1.MsgSubject = "Place subject here"
MAPIMessages1.MsgNoteText = "Place message here"
MAPIMessages1.Send False
MAPISession1.SignOff

End Sub

Hope it helps....

[HAVocINCARNATE29]

To answer the questions:

James Stanich: The path is a valid filepath, but its still doesnt attach. I have also tryed changing the code from "Attacth=" to "Attach=" but that didnt help either.

VB4fun: What component / Reference do i need to add to use MAPISession?


thanks for all the help so far!

[James Stanich]

Try changing to attachement.

You need to add the MAPI controls to your project. If you post your email, I can send you a sample project (too large to load here)

[VB4fun]

Project|Components|Microsoft MAPI Controls 6.0

[Pasvorto]

I use a free add-in called "HTML Mailer". You can download it from the web. It works great and it's free.

[HAVocINCARNATE29]

Thank for the help so far!

My email is

havocincarnate29
@prontomail.com

[Dasiths]

http://download.com.com/3000-2369-10...l?tag=lst-0-22

[peet]

Originally posted by HAVocINCARNATE29
First thing, i'm try to make this independent of any specific email client, so i dont want to use outlook specific code.

this example i found implys that you can attach a file...

Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" _
       Alias "ShellExecuteA" _
       (ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
 
Private Const SW_SHOWNORMAL = 1
 
Private Sub SendMail(lhWnd As Long, Optional Address As String, _
    Optional Subject As String, Optional Body As String, _
    Optional CC As String, Optional bcc As String, Optional Attachement As String)
    
'*********************************************************
'********                                         ********
'******** bygger opp en e-post melding, og sender ********
'******** denne ved å benytte default mail system ********
'********                                         ********
'******** NB!! Attachement fungerer KUN med       ********
'******** Outlook og outlook express              ********
'********                                         ********
'*********************************************************
 
    Dim strCommand As String
    
    'bygger opp "mail-strengen"
    If Len(Subject) Then strCommand = "&Subject=" & Subject
    If Len(Body) Then
        Body = Replace(Body, "&", "%26")
        Body = Replace(Body, " ", "%20")
        Body = Replace(Body, vbCrLf, "%0D%0A")
        Body = Replace(Body, vbCr, "%0D")
        Body = Replace(Body, vbLf, "%0A")
        strCommand = strCommand & "&Body=" & Body & "%0D%0A"
    End If
    
    If Len(CC) Then strCommand = strCommand & "&CC=" & CC
    If Len(bcc) Then strCommand = strCommand & "&BCC=" & bcc
    If Len(Attachement) Then strCommand = strCommand & "&Attacth=" & Chr(34) & Attachement & Chr(34)
 
    'passer på at første tegn er et ?-tegn
    If Len(strCommand) Then
        Mid(strCommand, 1, 1) = "?"
    End If
    
    'legger til teksten "mailto:" og hoved adresse
    strCommand = "mailto:" & Address & strCommand
    
    'Starter default mail program v.h.a shellexecute
    Call ShellExecute(lhWnd, "open", strCommand, _
        vbNullString, vbNullString, SW_SHOWNORMAL)
 
End Sub
 
Private Sub Command1_Click()
    SendMail Me.hwnd, "[email protected]", "Test", "Ok, this is the test message.", "[email protected]", , "C:\Autoexec.bat"
End Sub

hmm those comments are mine...

attachment part will only work for outlook, not outlook express...

[Dasiths]

The only problem is it's in C++ ...

http://www.codeproject.com/shell/sendtomail.asp
http://www.arstdesign.com/articles/sendtomail.html

can any one convert them to VB ?

[Dasiths]

Originally posted by HAVocINCARNATE29
I'm using:

BodyData = "Please%20give%20a%20full%20description%20of%20the%20bug%20below%3A%0D%0A%0D%0A"
Attachment = "c:\autoexec.bat"
 
ShellExecute Me.hwnd, "open", "mailto:[email protected]" & _
            "?subject=" & Trim(App.Title) & "%20Bug%20Report" & _
            "&body=" & BodyData _
            & "&attach=" & Chr(34) & Attachment & Chr(34), vbNullString, vbNullString, SW_SHOWNORMAL

what's wrong? why doesnt the attachment attach??

http://www.lencom.com/desc/indexN3946.html

It's simple little exe file .. but does the job ........