Beiträge von Dino

Hi water,

wie kann ich für die markierten Kontakte im Feld "Name" z.B. diesen Text "" durch (M) ersetzen?

[Blockierte Grafik: http://www.imgbox.de/users/public/images/WZ3b3ZMxNk.jpg]

Viele Grüße,
Dino

Alles klar

Vielen DANK!

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

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

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

Hallo water,

es funktioniert! VIELEN DANK!

Viele Grüße,
Dino

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

Es waren 3 zum Testen.

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

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

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

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

Jetzt geht es DANKE!

Hi m-obi,

so habe ich es jetzt:

[autoit]

#include <Clipboard.au3>
#include <GUIConstantsEx.au3>
#include <SendMessage.au3>
#include <WindowsConstants.au3>

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

Opt('GUIOnEventMode', 1)

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

$hGui = GUICreate('Delete_One_empty_Row', 600, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
$hEdit = GUICtrlCreateEdit('', 10, 10, 580, 240)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$hSave = GUICtrlCreateButton('Bearbeiten', 220, 260, 120, 22)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetOnEvent(-1, '_RemoveEmptyLines')
GUISetState()
WinSetOnTop($hGui, '', 1)
Global $hNext = _ClipBoard_SetViewer($hGui)

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

While 1
Sleep(100)
WEnd

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

Func _End()
_ClipBoard_ChangeChain($hGui, $hNext)
Exit
EndFunc ;==>_End

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

Func _RemoveEmptyLines()
$sEdit = GUICtrlRead($hEdit)
$sEdit = StringReplace($sEdit, @CRLF & @CRLF, @CRLF)
GUICtrlSetData($hEdit, $sEdit)
ClipPut(GUICtrlRead($hEdit))
;~ MsgBox(0, "Zwischenablage enthält:", GUICtrlRead($hEdit))
EndFunc

[/autoit]

Mein Zeil ist es nach dem Klick auf "Bearbeiten" GUI zu schließen. Zur Zeit passiert es nicht

ClipPut(GUICtrlRead($hEdit)) kopiert es in Zwischenablage. Wo füge ich $GUI_EVENT_CLOSE, um GUI zu schließen?

Hallo m-obi,

es funktioniert.

Lässt sich nachdem Klick auf "Bearbeiten", wenn die Zeilen gelöscht sind, dies noch einbauen:
Alles auswählen ==> Ausschneiden (ist dann in der Zwischenablage) ==> GUI schließen

Besten Dank!

Viele Grüße,
Dino

Hallo $var,

ich weiß es nicht, ob es richtig eingefügt habe (siehe unten) oder ob da noch etwas fehlt.

Diese Meldung bekomme ich:
D:\test.au3(30,35) : ERROR: _RemoveEmptyLines() called by a previous line with 0 arg(s). Min = 1. First previous line calling this Func is 14.
Func _RemoveEmptyLines ($s_String)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\test.au3 - 1 error(s), 0 warning(s)

[autoit]

#include <Clipboard.au3>
#include <GUIConstantsEx.au3>
#include <SendMessage.au3>
#include <WindowsConstants.au3>

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

Opt('GUIOnEventMode', 1)

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

$hGui = GUICreate('Delete_One_empty_Row', 600, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
$hEdit = GUICtrlCreateEdit('', 10, 10, 580, 240)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$hSave = GUICtrlCreateButton('Bearbeiten', 220, 260, 120, 22)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetOnEvent(-1, '_RemoveEmptyLines')
GUISetState()
WinSetOnTop($hGui, '', 1)
Global $hNext = _ClipBoard_SetViewer($hGui)
GUIRegisterMsg($WM_CHANGECBCHAIN, 'WM_CHANGECBCHAIN')
GUIRegisterMsg($WM_DRAWCLIPBOARD, 'WM_DRAWCLIPBOARD')

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

While Sleep(1000)
WEnd

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

Func _End()
_ClipBoard_ChangeChain($hGui, $hNext)
Exit
EndFunc ;==>_End

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

Func _RemoveEmptyLines ($s_String)
Local $s_Return, $a_Split, $b_Empty

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

$b_Empty = False
$a_Split = StringSplit ($s_String, @CRLF, 1)

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

For $i = 1 To $a_Split[0]
If $a_Split[$i] = "" And $b_Empty = False Then
$b_Empty = True
ElseIf $a_Split[$i] = "" And $b_Empty = True Then
$b_Empty = False
$s_Return &= $a_Split[$i] &@CRLF
Else
$s_Return &= $a_Split[$i] &@CRLF
EndIf
Next

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

Return $s_Return
EndFunc

[/autoit]

Viele Grüße,
Dino

Hallo Leute,

ich habe das Problem, wenn ich aus einer E-Mail mir ein VBA-Code kopiere und in eine Anwendung einfüge, dass ich eine leere Zeile mehr habe als gewünscht.

Beispiel vorher:

Sub ListeFuellen(rngBereich As Range)

Dim Zeile As Long, Spalte As Long

For Zeile = 1 To rngBereich.Rows.Count
If rngBereich.Cells(Zeile, 2) = 0 Or rngBereich.Cells(Zeile, 2) = "" Then

Else
lngIndex = lngIndex + 1
ReDim Preserve arrListe(1 To 4, 1 To lngIndex)
For Spalte = 1 To 4
arrListe(Spalte, lngIndex) = rngBereich.Cells(Zeile, Spalte)
Next
End If
Next

End Sub

Beispiel so soll es nachher sein:

Sub ListeFuellen(rngBereich As Range)

Dim Zeile As Long, Spalte As Long

For Zeile = 1 To rngBereich.Rows.Count
If rngBereich.Cells(Zeile, 2) = 0 Or rngBereich.Cells(Zeile, 2) = "" Then

Else
lngIndex = lngIndex + 1
ReDim Preserve arrListe(1 To 4, 1 To lngIndex)
For Spalte = 1 To 4
arrListe(Spalte, lngIndex) = rngBereich.Cells(Zeile, Spalte)
Next
End If
Next

End Sub

Ich habe mir gedacht ein GUI zu machen, in dem ich den Code aus der E-Mail einfüge und auf Button "Bearbeiten" klicke, der dann dies bearbeitet (immer eine leere Zeile löscht) ==> dann alles markieren ===> ausschneiden.
Aber mir fehlt im Code diese Funktion.

[autoit]

#include <Clipboard.au3>
#include <GUIConstantsEx.au3>
#include <SendMessage.au3>
#include <WindowsConstants.au3>

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

Opt('GUIOnEventMode', 1)

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

$hGui = GUICreate('Delete_One_empty_Row', 600, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
$hEdit = GUICtrlCreateEdit('', 10, 10, 580, 240)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$hSave = GUICtrlCreateButton('Bearbeiten', 220, 260, 120, 22)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetOnEvent(-1, '_Edit')
GUISetState()
WinSetOnTop($hGui, '', 1)
Global $hNext = _ClipBoard_SetViewer($hGui)
GUIRegisterMsg($WM_CHANGECBCHAIN, 'WM_CHANGECBCHAIN')
GUIRegisterMsg($WM_DRAWCLIPBOARD, 'WM_DRAWCLIPBOARD')

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

While Sleep(1000)
WEnd

[/autoit]

[Blockierte Grafik: http://www.imgbox.de/users/public/images/svMccUUMyV.jpg]

Besten Dank im Voraus!

Viele Grüße,
Dino

Vielen Dank name22!

Array $aResult, das kommt aus dem Post 5 von "i2c". Ich weiß es auch nicht, wofür es steht. Jedenfalls funktioniert alles

Viele Grüße,
Dino

Hallo name22,

bei mir funktioniert jetzt auch Danke!

Fragen:
1. Wenn ich 12 Verzeichnisse ausschließen möchte, schreibe ich es dann so Global $aExcept[13] = [12, ..... ? Oder?
2. MsgBox(0, "xxx Falsch abgelegte Projekte?", $sResult)
Lässt sich, da wo ich in rot xxx eingetragen habe, die Anzahl der gefundene Verzeichnisse eintragen?

Viele Grüße,
Dino