Como eu faço para que a rotina abaixo de abertura do outlook vir com um arquivo em anexo, no meu caso será o próprio arquivo que o usuário acabou de zipar:

Private Sub lblEmail_Click()
    Dim Ret&
    
    Ret = ShellExecute(Me.Hwnd, "Open", _
                      "mailto:web@bro.eti.br?subject=Comunicado teste&body=Bom dia, " & Chr(13) & _
                      "Tudo bem?" & vbCrLf & "Tchau," & vbCrLf & vbCrLf & "Vilmar", _
                      "", App.Path, 1)
End Sub

Com esta linha no final "&attachments=" & App.Path & "     este.txt"  também não deu certo !!

 

 

Faltou algo?

Olá,

 

 

'Microsoft Mapi Control
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = "aa@aa.com"
MAPIMessages1.MsgSubject = "assunto"
MAPIMessages1.MsgNoteText = "mensagem"
MAPIMessages1.AttachmentIndex = 0 'Indice
MAPIMessages1.AttachmentPathName = "C:vilmar_dados_macsysVB 6EmailSite     este.txt"
MAPIMessages1.Send

 

 

Dim Ret&

Ret = ShellExecute(Me.Hwnd, "Open", _
                  "mailto:vilmar@vilmarbro.eti.br?subject=Comunicado teste&body=Bom dia, " & Chr(13) & _
                  "Tudo bem?" & vbCrLf & "Tchau," & vbCrLf & vbCrLf & "Vilmar&attachments=" & _
                  App.Path & "     este.txt", _
                  "", App.Path, 1)
                 
Mas ambas tentativas não deram certo !!

 

No vb nao tem uma coisa que seja impossivel amigo , tudo é programavel, mas sobre essa ideia nunca vi nenhum projeto, ja tentou achar no pscode.com  ?

é, procurei lá, mas não achei tb

tb olhei o codeproject , mas nada ainda

Tem alguma "zica" na rede que eu estou, ou melhor, nos PCs desta rede, por um outro colega de trabalho fora desta rede conseguiu abrir o outlook na "boa" !

 

Já olhei e executei a dica encontrada no google pro MAPI CONTROL FUNCIONAR:
- Colocar o Outlook Express como programa de e-mail padrão do Internet Explorer.
Mas para 2 PCs aqui da minha rede num "rolou", pqp #@$%$#%#$%#$%

 

Alguma outra idéia?

 

Grato.