Automatisch e-mail versturen met Visual Basic?!

[Anoniem: 18073]

Hoi, heeft er toevallig iemand verstand van programmeren in Visual Basic? Ik zou namelijk hiermee een programma willen schrijven om automatisch e-mail te kunnen versturen als je bv op een "commandbutton" klikt. Deze e-mail zou ik willen versturen met Microsoft outlook 2000.

Bedankt alvast!

[jelmervos]

gewoon met shellexcute een "mailto" opstarten. Zelf heb ik totaal geen verstand van VB (wel van Delphi), maar de truk is dat je gewoon een mailto link opend.

[Anoniem: 18073]

Jelmervos,

Dit lukt me ook al inderdaad, maar dan is er dus nog het probleem om een mail automatisch te laten versturen...

Thnx.

[jelmervos]

aha, ik denk dat het dan moeilijk wordt. Je kunt ook die mail laten versturen direct uit je programma via een SMTP server. Is dat geen oplossing?

[Anoniem: 15450]

Public Sub SendOutlookMail(Subject As String, Recipient As _
String, Message As String)

On Error GoTo errorHandler
Dim oLapp As Object
Dim oItem As Object

Set oLapp = CreateObject("Outlook.application")
Set oItem = oLapp.createitem(0)
'
With oItem
.Subject = Subject
.To = Recipient
.body = Message
.Send
End With
'
Set oLapp = Nothing
Set oItem = Nothing
'

Exit Sub

errorHandler:
Set oLapp = Nothing
Set oItem = Nothing
Exit Sub
End Sub

Moet je wel een reference naar Outlook maken

[Anoniem: 18073]

pmh_CrasH,

Als ik vragen mag: Hoe kun je zo'n reference naar Outlook maken?

Mijn kennis van Visual Basic is nu namelijk ongeveer 1 week oud.
Dus als je me wil helpen graag, leer ik veel van!

Thnx...
Encite

[Anoniem: 15450]

Dan moet je bij het menutje "Project", "References" kiezen.

Dan krijg je een heel lijst met References die je kunt selecteren.

Hier moet je dan iets van "Microsoft Outlook 2000..." aanvinken.

Ik weet niet precies hoe dat ie heet maar daar moet het wel op lijken.

suc6

[Anoniem: 18073]

Bedankt iedereen voor jullie hulp!

Het is me inderdaad gelukt!
Thanx