Iemand met VB skills? Automatische actie in outlook.

[gabn88]

Ik zoek iemand die het volgende kan inpassen in de volgende code. Zelf heb ik geen VB-skills, maar heb wel veel geprogrammeert met matlab, en dit zou met matlab wel werken. Het gaat maar om 3 regels, dus laat je niet afschrikken door de lengte van de code;)

Het probleem: Na synchronisatie met mijn telefoon heeft outlook ongeveer de helft van de achternamen in het vak "tussenvoegsel" geplaatst, dit vak wordt ook wel "Middelste Naam" genoemd. Ik wil dus een code hebben die voor elke contactpersoon kijkt:
1. Of er een achternaam is,
2. zo nee: is er een middelste naam?
3. zo ja: achternaam = middelste naam.
4. verwijder middelste naam.

Dit heb ik alsvolgt gedaan:

Visual Basic: ThisOutlookSession

 

Public Sub ChangeFileAs() 
    Dim objOL As Outlook.Application 
    Dim objNS As Outlook.NameSpace 
    Dim objContact As Outlook.ContactItem 
    Dim objItems As Outlook.Items 
    Dim objContactsFolder As Outlook.MAPIFolder 
    Dim obj As Object 
    Dim strFirstName As String 
    Dim strLastName As String 
    Dim strFileAs As String 

    On Error Resume Next 

    Set objOL = CreateObject("Outlook.Application") 
    Set objNS = objOL.GetNamespace("MAPI") 
    Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts) 
    Set objItems = objContactsFolder.Items 

    For Each obj In objItems 
        'Test for contact and not distribution list 
        If obj.Class = olContact Then 
            Set objContact = obj 

            With objContact 
            ' Uncomment the  strFileAs line for the desired format  



                If .isempty(.LastName) Then          %%%Geen idee of outlook dit begrijpt? In matlab werkt het wel 
               
                    If .isempty(.MiddleName)==0 Then   %%%ik wil dus dat dit geld als hij dus niet leeg is 

                    .LastName=.Middlename 
                    .Middlename = []              &&&Ook geen idee hoe ik de middlename dan leeg moet maken? 
                     End If 

                 End If 

                .Save 
            End With 
        End If 

        Err.Clear 
    Next 

    Set objOL = Nothing 
    Set objNS = Nothing 
    Set obj = Nothing 
    Set objContact = Nothing 
    Set objItems = Nothing 
    Set objContactsFolder = Nothing 

End Sub 

[steffex]

in .Net kun je gewoon het volgende doen:

Visual Basic:

if( .LastName == String.Empty )

De rest kun je wel vinden door even een simpele zoektocht op google!

offtopic:
En door het twee keer te vragen gaat het echt niet sneller!

gabn88 in "Outlook sorteren contactpersonen met tus..."

[jip_86]

Dingen als string leeg maken kan je wel op google vinden. Waar wil je onze hulp bij hebben? Wat heb je geprobeerd en wat gaat fout? Het is geen scriptvoorkauwsite hier.

[gabn88]

steffex schreef op donderdag 09 december 2010 @ 09:27:
in .Net kun je gewoon het volgende doen:

Visual Basic:

if( .LastName == String.Empty )

De rest kun je wel vinden door even een simpele zoektocht op google!

offtopic:
En door het twee keer te vragen gaat het echt niet sneller!

gabn88 in "Outlook sorteren contactpersonen met tus..."

Bedankt! Ik heb al van alles geprobeert... Dit hieronder werkt bijv ook niet, krijg de melding: Compileer fout, het argument is niet optioneel (bij IsEmpty). Ik heb geen idee wat dan het argument moet zijn. Als ik het zo doe zoals u aangaf, dan kom ik uit op de volgende melding: Compileerfout: Syntaxis fout.

Visual Basic: ThisOutlookSession

                If .LastName(IsEmpty) Then
                

              
                    If .MiddleName(IsEmpty) = False Then

                    .LastName = .MiddleName
                    .MiddleName = []
                     End If

                 End If

EDIT: Het volgende geeft geen foutmelding, maar voert ook niet uit wat ik wil:

Visual Basic: ThisOutlookSession

                If IsEmpty(.LastName) Then
                

              
                    If IsEmpty(.MiddleName) = False Then

                    .LastName = .MiddleName
                    TextBox.Clear (MiddleName)
                    End If

                 End If

[ Voor 20% gewijzigd door gabn88 op 09-12-2010 09:51 . Reden: iets toegevoegd ]

[gvdh]

Testen of iets leeg is:

Visual Basic:

If .LastName = "" Then

Testen of iets niet leeg is:

Visual Basic:

If .LastName <> "" Then

Iets leegmaken:

Visual Basic:

.LastName = ""

[LegacyCode]

Je kan natuurlijk ook kijken naar de lengte van de waarde

Visual Basic:

If Len(.LastName) = 0 Then

[gabn88]

gvdh schreef op donderdag 09 december 2010 @ 09:54:
Testen of iets leeg is:

Visual Basic:

If .LastName = "" Then

Testen of iets niet leeg is:

Visual Basic:

If .LastName <> "" Then

Iets leegmaken:

Visual Basic:

.LastName = ""

Super mooi! Bedankt! Het werkt als een tierelier:)
Echt heel erg bedankt! Scheelt me een snelcursus VB