hilfe....daten in outlook übertragen

[henek]

guten morgen leute......hab da ein problem.... :upps

ich will ein programm schreiben, indem man den Namen und die emailadresse eingibt und diese Daten dann als kontakt in Outlook erstellt werden.

In einer forms anwendung

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

using System.IO;

namespace WindowsFormsApplication1

{

public partial class emailLabel : Form

{

string name;

string email;

StreamWriter sw;

string info;

public emailLabel()

{

InitializeComponent();

}

private void activate_Click(object sender, EventArgs e)

{

name = Convert.ToString(nameBox.Text); //Es wird ein Text in nameBox eingegeben//

email = Convert.ToString(emailBox.Text); //""//

sw = new StreamWriter(@"C:\Dokumente und Einstellungen\c.henek\Desktop\Neuer Ordner\out.txt");

sw.WriteLine(""+nameBox.Text+""); //Übergabe der Werte an die Textdatei//

sw.WriteLine(""+emailBox.Text+"");

sw.Close();

}

private void button1_Click(object sender, EventArgs e)

{

Close();

}

private void label1_Click(object sender, EventArgs e)

{

}

private void emailBox_TextChanged(object sender, EventArgs e)

{

}

private void infoButton_Click(object sender, EventArgs e)

{

info = Convert.ToString(label1.Text);

label1.Text=("Von Carsten Henek 13.10.11");

}

}

}

danke schonmal für die Antworten

[HJST1979]

Hallo

schau mal hier nach, hat mir immer ganz gut geholfen Writing .NET Code for Outlook: VB.NET, C# samples

Gruß Hans-Jörg

[Der Kleine]

Ja, dann mal zu.

Oder hast du konkrete Probleme und konkrete Fragestellungen?

Weil, du willst ein Programm schreiben, ...

[HJST1979]

Hab noch einen Code von mir gefunden ist aber VB.NET

    Public Function stAddOutloKontakt(ByVal hlWerte As Hashtable) As String

        Dim stTempNummer As String


        ' Neuen Outlook-Kontakt hinzufügen

        Dim oOutlook As Object    ' Outlook.Application

        Dim oNameSpace As Object  ' Outlook.NameSpace

        Dim oMAPIFolder As Object ' Outlook.MAPIFolder

        Dim oContact As Object    ' Outlook.ContactItem

        Dim oMAPIItems As Object ' Outlook.MAPIItems

        Dim inNumContacts As Integer

        Dim inZaehler As Integer


        Const olFolderContacts = 10


        ' Outlook-Application-Objekt erstellen

        oOutlook = CreateObject("Outlook.Application")


        ' Namespace initialisieren

        oNameSpace = oOutlook.GetNamespace("MAPI")


        ' Kontakt-Ordner verwenden

         oMAPIFolder = oNameSpace.GetDefaultFolder(olFolderContacts)


        'Alten Outlook- Eintrag löschen

        oMAPIItems = oMAPIFolder.Items

        inNumContacts = oMAPIItems.Count

        If inNumContacts <> 0 Then

            For inZaehler = 1 To inNumContacts

                If TypeName(oMAPIItems(inZaehler)) = "ContactItem" Then

                    oContact = oMAPIItems(inZaehler)

                    'MsgBox(oContact.EntryID & Chr(13) & Chr(10) & hlWerte("EntryID"))

                    If oContact.EntryID = hlWerte("EntryID") Then


                        'Lösche diesen Datensatz

                        oContact.Delete()

                        Exit For

                        'Springe dann aus der Schleife

                    End If

                End If

            Next inZaehler

        End If

        ' Objekt für neuen Eintrag erstellen

        oContact = oMAPIFolder.Items.Add

        With oContact


            'Nummer

            If Not hlWerte("Account") Is Nothing Then .Account = hlWerte("Account")

            'Namenseinträge

            If Not hlWerte("Nachname") Is Nothing Then .LastName = hlWerte("Nachname")

            If Not hlWerte("Vorname") Is Nothing Then .FirstName = hlWerte("Vorname")

            If Not hlWerte("Vorname2") Is Nothing Then .MiddleName = hlWerte("Vorname2")

            If Not hlWerte("Spitzname") Is Nothing Then .NickName = hlWerte("Spitzname")

            If Not hlWerte("Anrede") Is Nothing Then .Title = hlWerte("Anrede")

            If Not hlWerte("Titel") Is Nothing Then .Suffix = hlWerte("Titel")

            '(0 = keine Angabe, 1 = Weiblich, 2 = Männlich)

            If Not hlWerte("Geschlecht") Is Nothing Then .Gender = hlWerte("Geschlecht")


            If Not hlWerte("Sprache") Is Nothing Then .Language = hlWerte("Sprache")


            'Firma

            If Not hlWerte("Firma") Is Nothing Then .CompanyName = hlWerte("Firma")

            If Not hlWerte("Position") Is Nothing Then .JobTitle = hlWerte("Position")

            If Not hlWerte("Abteilung") Is Nothing Then .Department = hlWerte("Abteilung")

            If Not hlWerte("Büroadresse") Is Nothing Then .OfficeLocation = hlWerte("Büroadresse")

            If Not hlWerte("Vorgesetzter") Is Nothing Then .ManagerName = hlWerte("Vorgesetzter")

            If Not hlWerte("Assistent") Is Nothing Then .AssistantName = hlWerte("Assistent")

            If Not hlWerte("TelAssistent") Is Nothing Then .AssistantTelephoneNumber = hlWerte("TelAssistent")

            If Not hlWerte("Beruf") Is Nothing Then .Profession = hlWerte("Beruf")


            'Geschäftsadresse

            If Not hlWerte("StrasseGesch") Is Nothing Then .BusinessAddressStreet = hlWerte("StrasseGesch")

            If Not hlWerte("PostfachGesch") Is Nothing Then .BusinessAddressPostOfficeBox = hlWerte("PostfachGesch")

            If Not hlWerte("PLZGesch") Is Nothing Then .BusinessAddressPostalCode = hlWerte("PLZGesch")

            If Not hlWerte("OrtGesch") Is Nothing Then .BusinessAddressCity = hlWerte("OrtGesch")

            If Not hlWerte("LandGesch") Is Nothing Then .BusinessAddressCountry = hlWerte("LandGesch")


            'Privatadresse

            If Not hlWerte("StrassePriv") Is Nothing Then .HomeAddressStreet = hlWerte("StrassePriv")

            If Not hlWerte("PostfachPriv") Is Nothing Then .HomeAddressPostOfficeBox = hlWerte("PostfachPriv")

            If Not hlWerte("PLZPriv") Is Nothing Then .HomeAddressPostalCode = hlWerte("PLZPriv")

            If Not hlWerte("OrtPriv") Is Nothing Then .HomeAddressCity = hlWerte("OrtPriv")

            If Not hlWerte("LandPriv") Is Nothing Then .HomeAddressCountry = hlWerte("LandPriv")


            'Andere Adresse

            If Not hlWerte("StrasseAndere") Is Nothing Then .OtherAddressStreet = hlWerte("StrasseAndere")

            If Not hlWerte("PostfachAndere") Is Nothing Then .OtherAddressPostOfficeBox = hlWerte("PostfachAndere")

            If Not hlWerte("PLZAndere") Is Nothing Then .OtherAddressPostalCode = hlWerte("PLZAndere")

            If Not hlWerte("OrtAndere") Is Nothing Then .OtherAddressCity = hlWerte("OrtAndere")

            If Not hlWerte("LandAndere") Is Nothing Then .OtherAddressCountry = hlWerte("LandAndere")


            'Standardadresse

            '1 = Privat, 2 = Geschäft, 3 = Andere

            If Not hlWerte("Standardaresse") Is Nothing Then .SelectedMailingAddress = hlWerte("Standardaresse") Else .SelectedMailingAddress = 2


            'Telefon Geschäft

            If Not hlWerte("TelGesch1") Is Nothing Then .BusinessTelephoneNumber = hlWerte("TelGesch1")

            If Not hlWerte("TelGesch2") Is Nothing Then .Business2TelephoneNumber = hlWerte("TelGesch2")

            If Not hlWerte("TelFirmaHaupt") Is Nothing Then .CompanyMainTelephoneNumber = hlWerte("TelFirmaHaupt")


            'Telefon Privat

            If Not hlWerte("TelPriv1") Is Nothing Then .HomeTelephoneNumber = hlWerte("TelPriv1")

            If Not hlWerte("TelPriv2") Is Nothing Then .Home2TelephoneNumber = hlWerte("TelPriv2")


            'Telefon Andere

            If Not hlWerte("TelAndere") Is Nothing Then .OtherTelephoneNumber = hlWerte("TelAndere")


            'Faxnummern

            If Not hlWerte("FaxGesch") Is Nothing Then .BusinessFaxNumber = hlWerte("FaxGesch")

            If Not hlWerte("FaxPriv") Is Nothing Then .HomeFaxNumber = hlWerte("FaxPriv")

            If Not hlWerte("FaxAndere") Is Nothing Then .OtherFaxNumber = hlWerte("FaxAndere")


            'Mobiltelefon

            If Not hlWerte("TelMobil") Is Nothing Then .MobileTelephoneNumber = hlWerte("TelMobil")


            'Email

            If Not hlWerte("EMail1") Is Nothing Then .Email1Address = hlWerte("EMail1")

            If Not hlWerte("EMail2") Is Nothing Then .Email2Address = hlWerte("EMail2")

            If Not hlWerte("EMail3") Is Nothing Then .Email3Address = hlWerte("EMail3")


            'Webseiten

            If Not hlWerte("WebGesch") Is Nothing Then .WebPage = hlWerte("WebGesch")

            If Not hlWerte("WebPriv") Is Nothing Then .PersonalHomePage = hlWerte("WebPriv")


            'Sonstige Infos

            If Not hlWerte("Geburtstag") = "" Then

                If Not hlWerte("Geburtstag") Is Nothing Then .Birthday = hlWerte("Geburtstag")

            End If

            If Not hlWerte("Jahrestag") = "" Then

                If Not hlWerte("Jahrestag") Is Nothing Then .Anniversary = hlWerte("Jahrestag")

            End If

            If Not hlWerte("EMail1") Is Nothing Then .Spouse = hlWerte("EMail1")

            If Not hlWerte("Kinder") Is Nothing Then .Children = hlWerte("Kinder")

            'c.Categories = AdressHerkunft & "; " & ![Kategorien]



            ' Kontakt speichern

            .Save()

            stTempNummer = .EntryID

        End With

        stAddOutloKontakt = stTempNummer


        ' Objekte wieder freigeben

        oContact = Nothing

        oMAPIFolder = Nothing

        oNameSpace = Nothing

        oOutlook = Nothing

    End Function

[Snipes83]

Wie schon erwähnt: Hab da ein Problem und danke für eure Antworten bringt nix!

Erklär detailiert was dein Problem ist und dir wird garantiert geholfen, aber die Allwissende Glaskugel für Informatiker ist momentan vergriffen, da findest nichtmal unter Amazon ne gebrauchte

Also Problem schildern - Frage posten - Antwort bekommen!

[henek]

ich möchte ein programm schreiben....eine forms anwendung.....bei der man einen namen und eine emailadresse eingibt.....

daraufhin soll das programm in outlook einen neuen kontakt mit den daten: name und emailadresse, erstellen.

ist eigentlich ein sinnloses programm...bin aber erst 2 monate in der ausbildung zum anwendungsentwickler.....wollt nur sehen wie sich so ein programm verhalten würde! :-D

[HJST1979]

Hallo

ich hab dir sogar eine Komplette Funktion gepostet. Die brauchst eigentlich "nur" noch in C# übersetzen, verstehen und dann aus deinem Programm mit übergabe einer Hashtable innerhalb des OnClick- Ereignisses eines Buttons aufrufen.

OnClick

   Dim htWerte as New Hashtable()

   htWerte.Add("Nachname", name.text)

   htWerte.Add("EMail1", email.text)


   stAddOutloKontakt(htWerte)   

Den Rest solltest du eigentlich jetzt schon hinbekommen

[henek]

versteh net ganz ....

wo soll ich meine variablen etc. verwenden?

[HJST1979]

Hallo

ich denke den rest solltest du alleine hinbekommen, "learning by doing"

Gruß Hans-Jörg