CRIAR NOVA MENSAGEM NO MS OUTLOOK E OUTLOOK EXPRES

USUARIO.EXCLUIDOS 22/08/2007 16:02:38
#232092
E a ê galera...

Gostaria de saber se tem como abrir somente a janela de um novo e-mail tanto no MS Outlook quanto no Outlook Express.

Tipo, quando o fulano clicar no botão do meu programa, abre a janela de novo e-mail pra ele digitar o endereço, o assunto e o texto.

Isso é uma coisa. A outra é que ao abrir a janela de novo e-mail, os anexos que o usuário determinar no programa Vb, já devem estar anexados.

Tem como?
DANIELCPAETE 22/08/2007 16:09:29
#232098 Resposta escolhida
Bom vou te passar aqui um exemplo de como fazer isso no MS outlook no express você pode tentar por aqui http://www.macoratti.net/vb_outl2.htm

Agora para usar o ms outlook você tem que declarar a referencia ao ms outlook e usar o seguinte codigo

Private Sub Command1_Click()
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem


On Error GoTo ERRO
Shell "C:\Arquivos de programas\Microsoft Office\OFFICE11\OUTLOOK.EXE", vbMinimizedNoFocus

Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)

With objMail
    .Attachments.Add App.Path & "    este.zip", olByValue, 1, "4th Quarter 1996 Results Chart"
   .BodyFormat = olFormatHTML
   .HTMLBody = "<HTML><H2>teste</H2><BODY>Data: " & Date & " </BODY></HTML>"
   .Display
End With

Set objMail = Nothing
Set olApp = Nothing

Exit Sub

ERRO:
  MsgBox "Erro favor abrir Outlook", vbCritical, "..::Aviso::.."
End Sub
USUARIO.EXCLUIDOS 22/08/2007 16:17:08
#232102

Ae.pega esse exemplo..

ele manda tudo por vb

boa sorte e sucesso
USUARIO.EXCLUIDOS 23/08/2007 08:43:47
#232172
Opa... O código fonte enviado pelo DANIELCPAETE resolveu...

A ainda dá pra usar o mesmo código fonte pro MS Outlook e Outlook Express.

é só esconlher:

'MS Outlook:
Shell "C:\Arquivos de programas\Microsoft Office\OFFICE11\OUTLOOK.EXE", vbMinimizedNoFocus

'Outlook Express:
Shell "C:\Arquivos de programas\Outlook Express\msimn.exe", vbMinimizedNoFocus


vlw à tds!
Tópico encerrado , respostas não são mais permitidas
Voltar