Ir para conteúdo
Fórum Script Brasil
  • 0

Outlook Express


@line

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 0

Porque voce não envia o e-mail direto do seu sistema:

MAPISession.UserName = origem.Text

MAPISession.Password = senha.Text

MAPISession.SignOn

MAPIMessages1.SessionID = MAPISession.SessionID

MAPIMessages1.Compose

MAPIMessages1.RecipAddress = destino.Text

MAPIMessages1.MsgSubject = assunto.Text

MAPIMessages1.MsgNoteText = mensagem.Text

'anexa no final da mensagem

MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)

'define o tipo de dados do anexo

MAPIMessages1.AttachmentType = mapData

'da um nome ao anexo; 'define o caminho e nome do arquivo a anexar

MAPIMessages1.AttachmentName = NomeAnexo

MAPIMessages1.AttachmentPathName = Anexo

'envia o arquivo

MAPISession.SignOff

MAPIMessages1.Send True

Link para o comentário
Compartilhar em outros sites

  • 0

Como você falou que poderia chamar o Outlook preenchido, você pode tentar este código.

'********************************************************************

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

Const SW_SHOWNORMAL = 1

Private Sub Form_Load()

ShellExecute Me.hwnd, vbNullString, "mailto:fulano@yaboo.com.br?cc=ciclano@yaboo.com.br&BCC=dd&Subject=Teste de envio de e-mail&body=ola @aline", vbNullString, "C:\", SW_SHOWNORMAL

End Sub

'********************************************************************

Desabiliar as teclas eu acredito que não seja possível.

O unico problema é que não consegui incluir anexo.

Só que agora fiquei curioso...Se alguém souber, posta ai.

Abraço.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...