Outlook Kontakten Nach- und Vornamen tauschen?

Dino

Hallo zusammen!

Ich habe im Outlook ca. 800 Kontakte und viele davon mit Bildern.
Durch diverse Übertragungen von Handy usw. sind nun bei vielen Kontakten ca. 350 in meinem Outlook 2010 Nach- und Vorname vertauscht.

Sprich im Menü Name steht unter Vorname "Meier" und unter Nachname "Hans".

Gibt es eine Möglichkeit, bei ausgewählten / markierten Kontakten den Name und Vorname zu vertauschen?

Besten Dank!

Viele Grüße,
Dino

**water**

Aber klar doch! Mit meinem OutlookEX UDF kannst Du mit der Funktion _OL_ItemGet Properties auslesen und mit _OL_ItemModify ändern.

**water**

Noch ungetestet - daher vorsichtig an Testdaten prüfen.
Verarbeitet alle markierten Outlook Elemente und tauscht Vorname und Nachname aus.

[autoit]

#include <OutlookEX.au3>

[/autoit][autoit][/autoit][autoit]

Global $oOL = _OL_Open()
If @error Then Exit MsgBox(16, "Error", "Error opening connection to Outlook. @error = " & @error & ", @extended = " & @extended)
Global $aSelected = _OL_ItemSelectionGet($oOL)
If @error Then Exit MsgBox(16, "Error", "Error returned by _OL_ItemSelectionGet. @error = " & @error & ", @extended = " & @extended)
For $i = 1 to $aSelected[0][0]
$aItem = _OL_ItemGet($oOL, $aSelected[$i][0], Default, "FirstName,LastName")
If @error Then Exit MsgBox(16, "Error", "Error returned by _OL_ItemGet. @error = " & @error & ", @extended = " & @extended)
_OL_ItemModify($oOL, $aSelected[$i][0], Default, "FirstName=" & $aItem[1], "LastName=" & $aItem[0])
If @error Then Exit MsgBox(16, "Error", "Error returned by _OL_ItemModify. @error = " & @error & ", @extended = " & @extended)
Next
_OL_Close($oOL)

[/autoit]

Dino

Hi water,

Ich habe eine Frage bevor ich das Script ausführe:

Wie ist die Vorgehensweise? Muss ich erst die Kontakte der Personen markieren, bevor ich das Script ausführe, oder Script starten und dann markieren?

Viele Grüße,

Dino

**water**

Derzeit nimmt das Skript alle markierten Kontakte und tauscht Vorname/Nachname.
Du kannst aber am Anfang eine

[autoit]

MsgBox(64, "Kontakte markieren", "Bitte die zu konvertierenden Kontakte markieren")

[/autoit]

einbauen.

Dino

Hi water,

das bekomme ich als Meldung:

Zitat

D:\- AUTOIT -\OutlookEX 0.7.1.1\test.au3(5,46) : ERROR: _OL_ItemSelectionGet(): undefined function.
Global $aSelected = _OL_ItemSelectionGet($oOL)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\- AUTOIT -\OutlookEX 0.7.1.1\test.au3 - 1 error(s), 0 warning(s)

Viele Grüße,
Dino

**water**

Sorry, heisst natürlich _OL_FolderSelectionGet.

Dino

Hi water,

bei mir wird nichts im Outlook geändert.

>"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "D:\- AUTOIT -\OutlookEX 0.7.1.1\Neues Textdokument.au3" /UserParams
+>11:24:54 Starting AutoIt3Wrapper v.2.1.0.8 Environment(Language:0407 Keyboard:00000407 OS:WIN_7/Service Pack 1 CPU:X64 OS:X64)
>Running AU3Check (1.54.22.0) from:C:\Program Files (x86)\AutoIt3
+>11:24:54 AU3Check ended.rc:0
>Running:(3.3.8.1):C:\Program Files (x86)\AutoIt3\autoit3.exe "D:\- AUTOIT -\OutlookEX 0.7.1.1\Neues Textdokument.au3"
D:\- AUTOIT -\OutlookEX 0.7.1.1\Neues Textdokument.au3 (10) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
_OL_ItemModify($oOL, $aSelected[$i][0], Default, "FirstName=" & $aItem[1], "LastName=" & $aItem[0])
_OL_ItemModify($oOL, $aSelected[$i][0], Default, "FirstName=" & ^ ERROR
->11:24:55 AutoIT3.exe ended.rc:1
>Exit code: 1 Time: 2.029

**water**

Wieviele Kontakte hast Du selektiert?

Dino

Es waren 3 zum Testen.

**water**

Dann muss ich das am Windows-System selbst mal testen. Ubuntu eignet sich nicht so ganz dafür

Dino

Mit 15 habe ich auch getestet, es kommt die gleiche Meldung.

**water**

So ist es jetzt aber richtig:

[autoit]

#include <OutlookEX.au3>

[/autoit][autoit][/autoit][autoit]

Global $oOL = _OL_Open()
If @error Then Exit MsgBox(16, "Error", "Error opening connection to Outlook. @error = " & @error & ", @extended = " & @extended)
MsgBox(16, "Kontakte ändern", "Bitte die zu ändernden Kontakte auswählen!")
Global $aSelected = _OL_FolderSelectionGet($oOL)
If @error Then Exit MsgBox(16, "Error", "Error returned by _OL_ItemSelectionGet. @error = " & @error & ", @extended = " & @extended)
For $i = 1 to $aSelected[0][0]
$aItem = _OL_ItemGet($oOL, $aSelected[$i][0], Default, "FirstName,LastName")
_ArrayDisplay($aItem)
If @error Then Exit MsgBox(16, "Error", "Error returned by _OL_ItemGet. @error = " & @error & ", @extended = " & @extended)
_OL_ItemModify($oOL, $aSelected[$i][0], Default, "FirstName=" & $aItem[2][1], "LastName=" & $aItem[1][1])
If @error Then Exit MsgBox(16, "Error", "Error returned by _OL_ItemModify. @error = " & @error & ", @extended = " & @extended)
Next
_OL_Close($oOL)

[/autoit]

Dino

Hallo water,

es funktioniert! VIELEN DANK!

Viele Grüße,
Dino

**water**

Gerne

Dino

Hi water,

wie kann ich noch die markierten Kontakte im Feld "Speichern unter" in der Reihenfolge Nachname, Vorname speichern?

[Blockierte Grafik: http://images.tecchannel.de/images/tecchannel/bdb/2155264/890x.jpg]

Viele Grüße,
Dino

**water**

Du musst noch die Property "FileAs" setzen. Das Skript sieht dann so aus:

[autoit]

#include <OutlookEX.au3>

[/autoit][autoit][/autoit][autoit]

Global $oOL = _OL_Open()
If @error Then Exit MsgBox(16, "Error", "Error opening connection to Outlook. @error = " & @error & ", @extended = " & @extended)
MsgBox(16, "Kontakte ändern", "Bitte die zu ändernden Kontakte auswählen!")
Global $aSelected = _OL_FolderSelectionGet($oOL)
If @error Then Exit MsgBox(16, "Error", "Error returned by _OL_ItemSelectionGet. @error = " & @error & ", @extended = " & @extended)
For $i = 1 to $aSelected[0][0]
$aItem = _OL_ItemGet($oOL, $aSelected[$i][0], Default, "FirstName,LastName")
_ArrayDisplay($aItem)
If @error Then Exit MsgBox(16, "Error", "Error returned by _OL_ItemGet. @error = " & @error & ", @extended = " & @extended)
_OL_ItemModify($oOL, $aSelected[$i][0], Default, "FirstName=" & $aItem[2][1], "LastName=" & $aItem[1][1],"FileAs=" & $aItem[1][1] & ", " & $aItem[2][1])
If @error Then Exit MsgBox(16, "Error", "Error returned by _OL_ItemModify. @error = " & @error & ", @extended = " & @extended)
Next
_OL_Close($oOL)

[/autoit]

Teste aber vorher sicherheitshalber an einem Test-Kontakt.

Dino

Hallo water,

es funktioniert.

Mit der Script oben haben ich schon Änderungen von Nachname und Vorname gemacht.

Mit der zweiten Script möchte ich nur noch die Reihenfolge im Feld "Speichern unter" ändern.
Was brauche ich vom Code bitte, damit nur diese eine Aktion ausgeführt wird?

Viele Grüße,
Dino

**water**

Wirf "FirstName=" & $aItem[2][1], "LastName=" & $aItem[1][1]," aus der _OL_ItemModify Zeile raus.

Dino

Die Zeile sieht dann so aus, wenn ich es richtig gemacht habe:
_OL_ItemModify($oOL, $aSelected[$i][0], Default, "FileAs=" & $aItem[1][1] & ", " & $aItem[2][1])

Vorher stand unter Speichern unter Martin Mustermann und wurde in dies geändert Martin, Mustermann
Also das Komma ist nur gesetzt worden, aber das ganze sollte so sein Mustermann, Martin