[font='"']Hallo zusammen,
ich bin ein Einsteiger in VB6 und hätte da gerne ein paar Gedankenanregungen oder auch Tipps
Ich versuche über VB6 in Outlook neue Kontaktgruppen + Unterordner zu erstellen und nebenbei ein Kontakt zu suchen und diesen zu löschen.
Die Form:
Hier das Modul:
Klappt auch alles bis zum 3. Codefenster super!
Jedoch wird nicht wie gewollt die Person im 3. Codefenster gelöscht. Er findet sie zwar, löscht sie allerdings nicht!
Wäre Euch für Hilfe sehr dankbar.
Da dies mein erster Forenbeitrag ist, erhängt mich bitte nicht, falls die Anordnung meiner Fenster etc. nicht forumsstandard ist.
Vielen Dank schon mal!
Lg, Marius
[/font]
ich bin ein Einsteiger in VB6 und hätte da gerne ein paar Gedankenanregungen oder auch Tipps
Ich versuche über VB6 in Outlook neue Kontaktgruppen + Unterordner zu erstellen und nebenbei ein Kontakt zu suchen und diesen zu löschen.
Die Form:
Quellcode
- Private Sub Command1_Click()
- Module1.Init
- Module1.OpenFolderOrCreate "Postfach - Nachname, Vorname\Kontakte\NeueListe\NeueUnterListe" ' Hier sollen die Ordner/Unterordner erstellt werden, sofern nicht vorhanden!
- Module1.OpenFolderOrCreate "Postfach - Nachname, Vorname\Kontakte\Klient" ' Dieser Ordner soll geöffnet bzw. erstellt werden.
- Module1.FindItemOrNew "T- Commander Troi Deanna" ' Dieser Kontakt soll gefunden und ersetzt werden durch:
- Module1.Attrib "Name", "T- Lieutenant" ' die neuen Attribute des Kontaktes
- Module1.Attrib "Vorname", "Worf"
- Module1.Attrib "Anrede", "Prof.Dr.Lit.Med.Dent."
- Module1.Save
- Module1.FindAndDeleteItem "T- Lieutenant Yar Natasha" ' und hier hapert es: er löscht diese Kontaktperson nicht!
- Module1.Quit
- End Sub
Hier das Modul:
Quellcode
- Private olNs As Outlook.NameSpace
- Private olApp
- Private Folder As Folder
- Private Item
- ' --- startet outlook
- Public Sub Init()
- Set olApp = Outlook.Application
- End Sub
- ' --- anmelden bei outlook
- Public Sub Logon()
- Set olNs = olApp.GetNamespace("MAPI")
- olNs.Logon
- End Sub
- ' --- sucht einen Pfad und speichert in Folder
- Public Sub OpenFolderOrCreate(Path As String)
- FindFolderOrCreate Outlook.Session.Folders, Path
- MsgBox Folder.name
- End Sub
- Private Sub FindFolderOrCreate(Folders As Folders, Path As String)
- Dim index As Integer
- Dim found As Boolean
- Dim aFolder As Folder
- found = False
- For index = 1 To Folders.Count
- Set aFolder = Folders.Item(index)
- If InStr(1, Path, aFolder.name) = 1 Then
- found = True
- If InStr(1, Path, "\") > 0 Then
- Path = Replace(Path, aFolder.name & "\", "")
- Set Folder = aFolder
- FindFolderOrCreate aFolder.Folders, Path
- Else
- Set Folder = aFolder
- End If
- Exit For
- End If
- Next
- If found = False Then
- Dim i As Integer
- i = InStr(1, Path, "\")
- Dim name As String
- If i = 0 Then
- name = Path
- Else
- name = Left(Path, InStr(1, Path, "\") - 1)
- End If
- Set aFolder = Folder.Folders.Add(name)
- If InStr(1, Path, "\") > 0 Then
- Path = Replace(Path, aFolder.name & "\", "")
- Set Folder = aFolder
- FindFolderOrCreate aFolder.Folders, Path
- Else
- Set Folder = aFolder
- End If
- End If
Quellcode
- Private Function FindItem(name As String) As Boolean
- Dim found As Boolean
- found = False
- Dim objItems As Items
- Set objItems = Folder.Items
- For index = 1 To objItems.Count
- Dim objItem As ContactItem
- Set objItem = objItems.Item(index)
- If objItem.LastName = name Then
- Set Item = objItem
- found = True
- Exit For
- End If
- Next
- FindItem = found
- End Function
Klappt auch alles bis zum 3. Codefenster super!
Jedoch wird nicht wie gewollt die Person im 3. Codefenster gelöscht. Er findet sie zwar, löscht sie allerdings nicht!
Wäre Euch für Hilfe sehr dankbar.
Da dies mein erster Forenbeitrag ist, erhängt mich bitte nicht, falls die Anordnung meiner Fenster etc. nicht forumsstandard ist.
Vielen Dank schon mal!
Lg, Marius
[/font]