MANDAR EMAIL PELO OUTLOOK VB2008?

SERGIO 29/09/2010 02:05:02
#354075
olá galera eu tinha um codigo que envia email pelo outlook funcionava perfeitamente só que eu perdi ele =/ , tentei uns exemplos na net só que esta muito estranho eu vou em preferences add a microsoft office 11.library(nao me recordo o nome) só que quando eu digito assim
Dim opp as new o( quando eu coloco a letra [Ô]o[Ô] não tá aparecendo o outlookaplication) igual eu vi em alguns codigos ou seja acho que nao add no projeto.
eu consegui mandar email via smtp mais é ruim pq o email só cai na caixa de spam e fica com propagando do yahoo embaixo.
algúem pode me ajudar
TECLA 29/09/2010 08:35:15
#354083 Resposta escolhida
Enviar e-mail pelo Outlook
http://migre.me/1qLyF
SERGIO 29/09/2010 11:28:32
#354109
obrigado pela ajuda tecla mais dá um erro estranho Public member [ô]OlItemType[ô] on type [ô]ApplicationClass[ô] not found.
será que não tenho essa referência no meu pc???
SERGIO 30/09/2010 14:24:35
#354203
Bom consegui enviar o email, só que ainda tenho um problema eu insiro uma imagem no richtextbox e gostaria de saber como enviar a imagem para o email pq no codigo
omsm.body = richtextbox.(essa parte que nao sei como usar para enviar a imagem) segue meu codigo que uso pra colocar a imagem no richtextbox
   Dim oApp As Outlook.Application
        oApp = New Outlook.Application
        Dim mail As Outlook.MailItem

        Dim oMsg As Outlook._MailItem
        oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)
        oMsg.To = txtDestino.Text
        oMsg.Subject = txtTitulo.Text
        oMsg.CC = txtOrigem.Text
        Dim img As Image = Image.FromFile([Ô]C:\\Minhas imagens\visual studio 2010 icon_e7794db6-2d82-4099-be78-144d693187b6.jpg[Ô])
        Dim orgData = Clipboard.GetDataObject
        Clipboard.SetImage(img)
        Me.RichTextBox1.Paste()
        Clipboard.SetDataObject(orgData)
        oMsg.Body = RichTextBox1.Text
        oMsg.Send()
        MessageBox.Show([Ô]Enviado com sucesso![Ô])
        oApp = Nothing
        oMsg = Nothing
ACDONA 02/10/2010 11:15:55
#354303
Para anexar arquivo use :

oMsg.Attachments.Add([Ô]localondeestaoarquivo[Ô])
VGSOFT 02/10/2010 17:58:24
#354313
Boa Tarde pessoal ..
A algum tempo atraz eu estava precisando disto tambem , so no me lembro de que site eu peguei , mas esta ai em anexo a class
eu estou usando assim :
no botao de enviar

Dim mapi As New SendFileTo.MAPI
If ATTACH Then
mapi.AddAttachment(My.Settings.DiretorioPDF & DIRETORIO + [Ô]\[Ô] + codi)
End If
Try
Dim xx As Integer = 0
[ô] aqui todos os contatos selecionados
For Each row As DataGridViewRow In Me.CONTATOSDataGridView.Rows
If row.Cells(0).Value = True Then
mapi.AddRecipientTo(row.Cells(2).Value)
End If
Next

[ô]mapi.SendMailPopup(TxtAssunto.Text, TxtMessage.Text)
mapi.SendMailDirect(TxtAssunto.Text, TxtMessage.Text)

qquer duvida pode me perguntar no e-mail

Renato
SERGIO 05/10/2010 00:31:06
#354401
Obrigao colegas pela ajuda vou tentar usar os exemplos postados, mais só uma pergunta é possivel fazer assim igual nessa imagem
http://img52.imageshack.us/img52/5889/sendemail.jpg
quando eu clicar enviar a imagem que esta no richtextbox direto pro email sem ser por arquivo anexado???
desde já agradeço
VGSOFT 08/10/2010 21:58:02
#354754
Sergio

No exemplo que eu te passei voce determina se existe arquivo a ser atachado ou nao
If ATTACH Then
mapi.AddAttachment(My.Settings.DiretorioPDF & DIRETORIO + [Ô]\[Ô] + codi)
End If

Depois voce determina o destino
mapi.AddRecipientTo(destino.txt)

OBS a origem ele pega da conta do outlook

mapi.SendMailDirect(titulo.Text, richtextbox Text)

Qualquer duvida e so pedir um help no email
Tópico encerrado , respostas não são mais permitidas
Voltar