[VB.NET] outlook contacten importeren

Pagina: 1
Acties:

Onderwerpen


Acties:
  • 0 Henk 'm!

Verwijderd

Topicstarter
Hoi allemaal,

ik heb op verschillende termen gezocht op google namelijk
vb net outlook contacten
vb net contacten importeren
vb net outlook
vb net email contacten
maar ik krijg maar geen goede resultaten.

Ik ben bezig om een programma te maken waarbij mensen automatisch een mail kunnen laten sturen naar hun outlook contactpersonen door middel van een vb.net programmatje, voor als ze bijvoorbeeld een nieuw email adres hebben.

Afbeeldingslocatie: http://i875.photobucket.com/albums/ab312/RobinKuijt/VBNET/Myprogrampicture.jpg


Verder heb ik ook al een stukje code gemaakt:

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Imports System.Net.Mail
Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim MyMailMessage As New MailMessage()
        Dim ErrorNIOA As String
        ErrorNIOA = "OK"


        If TextBox1.Text <> "" Then
            'Als er een email adres ingevuld word naar deze persoon sturen
            MyMailMessage.To.Add(TextBox1.Text)
        ElseIf CheckBox1.Checked Then
            'Als checkbox1 "alle contacten" aangevinkt is moet het programma alle outlook contacten ophalen
            'om dit bericht naar alle contactpersonen te sturen
-->        MyMailMessage.To.Add("_______________")
        Else
            'Wordt er niets aangevinkt of ingevuld dan wordt er ook niets verzonden
            ErrorNIOA = "ERROR"
        End If


        If ErrorNIOA = "OK" Then
            MyMailMessage.From = New MailAddress("_______________@____________.______")

            MyMailMessage.Subject = ("Nieuw email adres")

            MyMailMessage.Body = (TextBox2.Text)


            Dim SMTPServer As New SmtpClient("smtp.gmail.com")
            SMTPServer.Port = 587
            SMTPServer.Credentials = New System.Net.NetworkCredential("traykeyspotter@gmail.com", "*963.*963")
            SMTPServer.EnableSsl = True

            Try
                SMTPServer.Send(MyMailMessage)

            Catch ex As SmtpException
                MessageBox.Show(ex.Message)
            End Try
        Else
            MsgBox("ERROR: Geen email adres ingevuld of niets aangevinkt", MsgBoxStyle.Critical)
        End If

    End Sub
 
End Class


Ik vraag me dus nu af wat er bij de lijn met de pijl "-->" moet komen te staan... weet iemand wat hier moet komen te staan of dat ik nog iets moet veranderen?

Alvast heel erg bedankt!

Acties:
  • 0 Henk 'm!

  • H!GHGuY
  • Registratie: December 2002
  • Niet online

H!GHGuY

Try and take over the world...

Je gebruikt dan ook de foute zoektermen.
Probeer eens "Outlook Interop".

ASSUME makes an ASS out of U and ME


Acties:
  • 0 Henk 'm!

Verwijderd

Topicstarter
bedankt ik zal het proberen!

Acties:
  • 0 Henk 'm!

  • RobIII
  • Registratie: December 2001
  • Niet online

RobIII

Admin Devschuur®

^ Romeinse Ⅲ ja!

(overleden)
Waar hoort mijn topic?
SEA >> PRG

Lees die Quickstart nou gewoon eens :|
Verwijderd schreef op zaterdag 30 januari 2010 @ 12:22:
Ik vraag me dus nu af wat er bij de lijn met de pijl "-->" moet komen te staan...
Een lus (foreach / for / do / while / whatever) die door alle adressen itereert.
Verwijderd schreef op zaterdag 30 januari 2010 @ 12:22:
weet iemand wat hier moet komen te staan of dat ik nog iets moet veranderen?
Jij dacht dat je er gewoon "MyMailMessage.To.Add.AllMyOutLookContacts" neer kon zetten? Dan is het misschien slim om nog even wat tutorials "Office programmeren" door te nemen.

[ Voor 59% gewijzigd door RobIII op 30-01-2010 12:43 ]

There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.

Je eigen tweaker.me redirect

Over mij


Acties:
  • 0 Henk 'm!

Verwijderd

Topicstarter
@H!GHGuY:

Bedankt voor je tip ik heb goede informatie kunnen vinden op
http://msdn.microsoft.com/en-us/library/ms269109(VS.80).aspx
alleen nu heb ik het probleem dat ze nergens de import code vertellen want er moet (als het goed is)
boven Public Class Form1...............

een import code moeten komen te staan, ik heb deze al uitgeprobeerd alleen hij wordt niet herkend

Import Microsoft.Office.Interop.Outlook.Application

Acties:
  • 0 Henk 'm!

Verwijderd

Topicstarter
@ROBIII:

nee dacht niet dat ik mymailmessage.to.add.allmyoutlookcontacts neer kon zetten haha, dit had ik er neer gezet als een soort tijdelijke opvulling dat ik niet lang hoef te zoeken waar ik mijn code neer moet zetten..

Acties:
  • 0 Henk 'm!

  • RobIII
  • Registratie: December 2001
  • Niet online

RobIII

Admin Devschuur®

^ Romeinse Ⅲ ja!

(overleden)
Verwijderd schreef op zaterdag 30 januari 2010 @ 12:47:
Import Microsoft.Office.Interop.Outlook.Application
Dan kijk eens in je references in VS en zorg dat je de juiste reference(s) daar toevoegt. Heb je überhaupt een idee waar je mee bezig bent of ben je overal maar wat code vandaan aan het copy/pasten?
Verwijderd schreef op zaterdag 30 januari 2010 @ 12:54:
@ROBIII:

nee dacht niet dat ik mymailmessage.to.add.allmyoutlookcontacts neer kon zetten haha, dit had ik er neer gezet als een soort tijdelijke opvulling dat ik niet lang hoef te zoeken waar ik mijn code neer moet zetten..
Gebruik de edit knop ( Afbeeldingslocatie: http://tweakimg.net/g/forum/images/icons/edit.gif ) als je iets toe te voegen hebt; je topic herhaaldelijk omhoogschoppen is niet nodig.

[ Voor 53% gewijzigd door RobIII op 30-01-2010 12:58 ]

There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.

Je eigen tweaker.me redirect

Over mij

Pagina: 1