Jump to content


Photo

Abrir Outlook No Vb


  • Faça o login para participar
11 replies to this topic

#1 Kurt

Kurt

    I'll posses your body and I'll make you burn!

  • Usuários
  • 85 posts
  • Sexo:Não informado
  • Localidade:Há alguns quilômetros de lugar algum
  • Interesses:Visual Basic, banco de dados e AutoCAD

Posted 03/04/2004, 23:58

Como faço pra abrir o outlook no VB, e pronto pra enviar um e-mail pra alguem?
Private Sub (Mateus Dias Ribeiro)
If Você é novato Then
Leia as regras Else
Veja isto
End If

End Sub

#2 Sic

Sic

    Meu Reggae é Roots!

  • Usuários
  • 311 posts
  • Sexo:Masculino
  • Localidade:SP - ZL!
  • Interesses:Web, Desenvolvimento, Design, ITIL.<br /><br />Praia, Sol, Surf, Música, Violão e um Forreggae.

Posted 04/04/2004, 13:54

O comando shell é usado para abrir as coisas no Vb ai é só vc achar o caminha do outlook e colocar.
exemplo:

dim abrir as string
abrir = shell ("c:\outlook")


Bruno Cesar Dutra - "Mudar é ir Além!"
UbuntuUser - 7.04

Poesias Trash - Idiotice & Conscientização | BlackVistaMod @ Tecnologia

#3 Kurt

Kurt

    I'll posses your body and I'll make you burn!

  • Usuários
  • 85 posts
  • Sexo:Não informado
  • Localidade:Há alguns quilômetros de lugar algum
  • Interesses:Visual Basic, banco de dados e AutoCAD

Posted 04/04/2004, 17:06

Valew, mas tem como por exemplo eu fazer abrir o outlook e ainda configurar um e-mail pra ja ser enviado?
Private Sub (Mateus Dias Ribeiro)
If Você é novato Then
Leia as regras Else
Veja isto
End If

End Sub

#4 RodrigoBytes

RodrigoBytes

    Turista

  • Usuários
  • 31 posts
  • Sexo:Não informado

Posted 18/04/2004, 11:47

Valew, mas tem como por exemplo eu fazer abrir o outlook e ainda configurar um e-mail pra ja ser enviado?

Olá,

bem o não entendi se você quer enviar email do Outlook(do pacote do office) ou do Outlook Express(que vem junto com o windows).
o Código abaixo é para o outlook e para que ele funcione corretamente o serviço MAPI deve esta iniciado e inserido ao projeto.

Private Sub Form_Load()
On Error GoTo erro
Dim olapp As Object
Dim oitem As Object
Set olapp = CreateObject("Outlook.Application")
Set oitem = olapp.CreateItem(0)

With oitem
.Subject = "O titulo da mensagem"
.To = "contato@rodrigobytes.com.br"
.Body = "A mensagem"
.Send
End With
Set olapp = Nothing
Set oitem = Nothing
Exit Sub
erro:
MsgBox "O outlook não foi encontrado ou o serviço MAPI não foi iniciado", vbCritical, "Erro"
end sub

se você quiser o código equivalente do outlook express posta ai ...

Um abraço,
Rodrigo de Souza Delphino

Edição feita por: RodrigoBytes, 18/04/2004, 11:53.

Legião Urbana Omnia Vincit

"Só existe uma maneira de deter um hacker, é pensando como ele"

Rodrigo Bytes® - Segurança da informação

#5 André Gama

André Gama

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Masculino
  • Localidade:Itaboraí

Posted 13/01/2011, 15:15

Como faço pra abrir o outlook no VB, e pronto pra enviar um e-mail pra alguem?


System.Diagnostics.Process.Start("mailto:endereco@email.com.br")

Funciona no VB.NET 2008 (Não sei nas outras versões)
Espero ter ajudado
Abraço.

#6 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 24/09/2017, 16:44

Cheap Generic Cialis Online Zoloft 100 Mg No Script And Very Cheap Cephalexin Indications cialis Buy Zithromax 500mg Online Azithromycin Vs Amoxicillin Chlamidia Cialis O Levitra Mejor

#7 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 07/10/2017, 16:37

Priligy Y Cialis Juntos Preise Viagra Deutschland online pharmacy Levitra Generique Maroc
Generic Viagra Shipped From Usa Hydrochlorothiazide Medicine Overseas Plymouth viagra Amoxicillin During Pregnancy Next Best Thing To Nolvadex
Drug Similar To Dapoxetine Buy Albuterol Sulfate Inhaler Online where to purchase low cost levitra Amoxicillin 62.5mg Ml For Lab Animals Online Fluxotine No Prescription Where To Order Legally Progesterone Website Cod Accepted
Canadian Pharmacy Propecia 20mg Online Pharmacy For Plavix Achat De Propecia En Espagne cialis price Site Vente Levitra Fiable
Cialis 10 Mg Dosage Levitra 10 Mg Prezzo Farmacia Viagra Salud Total cialis Cialis Super Actif Plus

#8 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 10/10/2017, 13:57

V Gel Reviews Cialis 5mg Canada Levitra Foglietto Illustrativo 10mg viagra online Zithromax Z Pac Xenical Online In Stock
Amoxicillin Clavulanic Acid Dose viagra Best Place To Buy Generic Viagra Uk Amoxicillin Buy Online Canada 198 Celexa No Prescription 10mg

#9 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 15/10/2017, 07:52

Viagra Vendita Secure isotretinoin best buy fedex viagra online pharmacy Finpecia Uk Order Propecia Online Mastercard Pharmacie Sans Ordonnance
Amoxicillin Levaquin Keflex Drug Class viagra Progesterone Find From Canada Viagra Erezione El Amoxil

#10 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 15/10/2017, 12:30

Kamagra Ajanta Mumbai Viagra Online Doctor buy levitra de como y celisborrar x isotretinoin claravis Carmarthenshire
Can Amoxicillin Causing Yeast Infection viagra online Buy Nizagara Comprar Cialis Farmacia Sin Receta Clomid Consequence Grossesse Multiple
Viagra For Men At Wholesale Prices Clomid 100mg Posologie viagra online Cephalexin 250 Mg Indications For Dogs Boutique Levitra Generique Orlist Pills Buy 60mg
Is Alli Back In Stock Sans Ordonnance Amoxicillin Pharmacie En Ligne En Germany What Is Generic Priligy cialis Buy Xenical Over The Counter

#11 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 28/11/2017, 12:46

Can Keflex Cause Constipation Does Amoxicillin Cause Increased Thirst viagra online prescription Canadian Pharmacy Cialis Mexican Meds Online Cialis Discount Coupon
Canadian Pharmacy Meds Online cialis Can I Buy Alli Diet Pills Online
Cephalexin 250 Mg Indications For Dogs What Is Zithromax Z Pak Buy Tadacip Online Category Tadacip viagra cialis Vendita Viagra Generico buy accutane online canada On sale discount isotretinoin tablets online visa accepted

#12 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 03/12/2017, 21:29

Cheap Zithromax Disfunzione Erettile viagra Costo Cialis O Viagra
Buy Female Viagra Cheap Buy Online Female Viagra cialis buy online Amoxicillin 400mg Suspension By Ed Pills From Canada




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq