Einfachster Weg zum Synchronisieren und Probleml mit XP

[Ugy]

hallo Zusammen,

habe am Wochenende mein Samsung Galaxy S1 in Rente geschickt, und mir ein HTC One X gegönnt.
Soweit so gut. Nun gings an Kontakte synchen.

Erster Versuch war mit dem HTC Sync Manager. Alles, aber wirklich alles konnte ich synchronisieren, aber nur die Kontakte nicht. War grau hinterlegt und nicht anklickbar.

Nächster Versuch war mit MyPhoneExplorer. Zumindes auf meiner Win7 Kiste läuft das wunderbar.
Das Smartphone nur auf Laden stellen und Debugging einschalten.

Jetzt würde ich aber gerne auch auf meinen Arbeits-Laptop die Möglichkeit haben zu Synchronisieren. Habe dort ebenfalls MyPhoneExplorer installiert. Aber er bekommt keine Verbindung zustande. Im Inet habe ich dazu auch nix weiter gefunden. Weiss jemand was man genau machen muss, damit es läuft?

Und eine andere Frage, was gibt es denn sonst noch einfachere Möglichkeiten? Mir geht es nur um Kontakte, damit man diese am Rechner bearbeiten und sichern kann.

Vielen Dank für Tips.

[grofol]

MyPhoneExplorer ist echt genial das ist richtig. Jedoch: Hast du auf deinem Arbeitslaptop Adminrechte? Wenn nein klappt das MyPhoneExplorer Tool nur, wenn du es als portable Version installierst. Jedoch kannst du dann denn Kalender nicht Synchronisieren.

Hatte dieses Problem auch und wollte nicht über google denn Kalender sichern. Habe dann ein Makro gefunden, welches mir die Kalenderdaten rausliest auf dem Arbeitscomputer im Outlook.

dieses:

' Copyright 2004 - Norman L. Jones, Provo Utah (njones61@gmail.com)
' You are free to use this software for your personal use
' You may NOT use it for commercial purposes without written permission

Option Explicit

'Global variables
Dim myCalendar As Outlook.MAPIFolder
Dim allcat As Boolean
Dim catlist() As String

Sub save_catlist(myallcat As Boolean, mycatlist() As String)
'Save these values for future use

allcat = myallcat
catlist = mycatlist

End Sub

Sub save_calendar(theCalendar As Outlook.MAPIFolder)

Set myCalendar = theCalendar

End Sub

Function get_calendar() As Outlook.MAPIFolder

Set get_calendar = myCalendar

End Function

Sub export_icalendar()
'Sets up data in preparation for prompting users for file name
'and list of categories.


frmSaveiCalStep1.Show


End Sub

Function wrapText(theText As String)
'   Per Section 4.1 of RFC 2445, any line that is longer
'   than 75 octets in length must be wrapped.
'
'   TODO: This doesn't handle Unicode/UTF-8 right.
'   you could cut in half to be on the safe side....
'
Const MAX_LENGTH = 72

Dim sResult As String, iLine As Integer, iPos As Integer
Dim c As String

If Len(theText) <= MAX_LENGTH Then
    sResult = theText
Else
    iLine = 0
    For iPos = 1 To Len(theText)
        c = Mid(theText, iPos, 1)
        iLine = iLine + 1
        sResult = sResult + c
        If iLine >= MAX_LENGTH Then
            sResult = sResult + Chr(13) + Chr(10) + " "
            iLine = 0
        End If
    Next
End If

wrapText = sResult

End Function


Sub export_ical(thepath As String)
'Saves the main calendar to an iCalendar file.

If thepath <> "" Then

    Dim outfile As Integer
    'Dim myNameSpace As Variant
    'Dim myCalendar As Variant
    Dim item As AppointmentItem
    Dim myitems As Variant
    Dim exportitem As Boolean
    
    outfile = FreeFile

    Open thepath For Output As #outfile
    
    
    'Set myNameSpace = GetNamespace("MAPI")
    'Set myCalendar = myNameSpace.GetDefaultFolder(olFolderCalendar)
    Set myitems = myCalendar.Items
    myitems.IncludeRecurrences = True  'This ensures that recurring appts are fully included
    
    'Print the header information
    Print #outfile, "BEGIN:VCALENDAR"
    Print #outfile, "CALSCALE:GREGORIAN"
    Print #outfile, "VERSION:2.0"
    
    'Copy all of the appropriate appts into the iCalendar
    For Each item In myitems
    
        'Check to see if item should be exported.  Since VB does
        'not parse compound conditional expressions efficiently
        'we have to do this carefully so that we don't call the
        'category_found function unless we absolutely have to
        exportitem = False
        
        If (Not ((item.End <= Now) And (DateDiff("d", item.End, Now) > 40))) Or item.IsRecurring Then
        'only Items newer and not older than 40 day will be exported
        'if item is recurring we have to ignore the age
            If allcat Then 'Export all categories
                exportitem = True
            ElseIf category_found(catlist, item.Categories) Then
                exportitem = True
            End If
        End If
        
        If exportitem Then
                    
            'Write out the record for this appointment
            Print #outfile, "BEGIN:VEVENT"
           
            If item.AllDayEvent Then
                Print #outfile, "DTSTART;VALUE=DATE:" & FormatICalDate(item.Start)
                If Not item.IsRecurring Then
                    Print #outfile, "DTEND;VALUE=DATE:" & FormatICalDate(item.End)
                End If
            Else
                Print #outfile, "DTSTART:" & FormatICalDateTime(item.Start)
                Print #outfile, "DTEND:" & FormatICalDateTime(item.End)
            End If
            If item.IsRecurring Then
                Print #outfile, gen_recur_string(item)
            End If
            If Not IsNull(item.Location) And Len(item.Location) > 0 Then
                Print #outfile, wrapText("LOCATION:" & item.Location)
            End If
            
            Print #outfile, wrapText("SUMMARY:" & item.Subject)
            If item.Sensitivity = olNormal Then
               Print #outfile, "CLASS:PUBLIC"
            ElseIf item.Sensitivity = olConfidential Then
               Print #outfile, "CLASS:CONFIDENTIAL"
            Else
               Print #outfile, "CLASS:PRIVATE"
            End If
            If Len(item.Body) > 0 Then
                Print #outfile, wrapText("DESCRIPTION:" & RemoveCR(item.Body))
            End If
            Print #outfile, "LAST-MODIFIED:" & FormatICalDateTime(item.LastModificationTime)
            Print #outfile, "UID:" + item.EntryID
            Print #outfile, "END:VEVENT"
                  
       End If
    Next item
    
    Print #outfile, "END:VCALENDAR"
    
    Close #outfile
    
End If

End Sub

Function gen_recur_string(myItem As AppointmentItem) As String
'Returns a properly formatted recurrence string for the item.

Dim myPattern As RecurrencePattern
Dim str As String

str = "RRULE:"

Set myPattern = myItem.GetRecurrencePattern

If myPattern.RecurrenceType = olRecursDaily Then
    str = str & "FREQ=DAILY"
    If Not myPattern.NoEndDate Then
        str = str & ";UNTIL=" & FormatICalDateTime(myPattern.PatternEndDate)
        'The end date/time is marked as 12:00am on the last day.  When this is
        'parsed by php-ical, the last day of the sequence is missed. The MS Outlook
        'code has the same bug/issue.  To fix this, change the end time from
        '12:00 am to 11:59:59 pm.
        str = Replace(str, "T000000", "T235959")
    End If
    str = str & ";INTERVAL=" & myPattern.Interval
    
ElseIf myPattern.RecurrenceType = olRecursMonthly Then
    str = str & "FREQ=MONTHLY"
    If Not myPattern.NoEndDate Then
        str = str & ";UNTIL=" & FormatICalDateTime(myPattern.PatternEndDate)
    End If
    str = str & ";INTERVAL=" & myPattern.Interval
    str = str & ";BYMONTHDAY=" & myPattern.DayOfMonth
    
ElseIf myPattern.RecurrenceType = olRecursMonthNth Then
    str = str & "FREQ=MONTHLY"
    If Not myPattern.NoEndDate Then
        str = str & ";UNTIL=" & FormatICalDateTime(myPattern.PatternEndDate)
    End If
    str = str & ";INTERVAL=" & myPattern.Interval
    'php-icalendar has a bug for monthly recurring events.  If it is the last day of
    'the month, you can't use the BYDAY=-1SU option, unless you also do the BYMONTH option
    '(which only is useful for yearly events).  However, the BYWEEK option seems to work
    'for the last week of the month (but not for the first week of the month).  Anyway,
    'this exeception seems to work.
    If myPattern.Instance = 5 Then
        str = str & ";BYWEEK=-1"
        str = str & ";BYDAY=" & days_of_week("", myPattern)
    Else
        str = str & ";BYDAY=" & days_of_week(week_num(myPattern.Instance), myPattern)
    End If
    
ElseIf myPattern.RecurrenceType = olRecursWeekly Then
    str = str & "FREQ=WEEKLY"
    If Not myPattern.NoEndDate Then
        str = str & ";UNTIL=" & FormatICalDateTime(myPattern.PatternEndDate)
    End If
    str = str & ";INTERVAL=" & myPattern.Interval
    str = str & ";BYDAY=" & days_of_week("", myPattern)
    
ElseIf myPattern.RecurrenceType = olRecursYearly Then
    str = str & "FREQ=YEARLY"
    If Not myPattern.NoEndDate Then
        str = str & ";UNTIL=" & FormatICalDateTime(myPattern.PatternEndDate)
    End If
    str = str & ";INTERVAL=1"  'Can't do every nth year in Outlook
    str = str & ";BYDAY=" & days_of_week("", myPattern)

ElseIf myPattern.RecurrenceType = olRecursYearNth Then
    str = str & "FREQ=YEARLY"
    If Not myPattern.NoEndDate Then
        str = str & ";UNTIL=" & FormatICalDateTime(myPattern.PatternEndDate)
    End If
    str = str & ";BYMONTH=" & month_num(myPattern.MonthOfYear)
    str = str & ";BYDAY=" & days_of_week(week_num(myPattern.Instance), myPattern)
    
End If
    
gen_recur_string = str

End Function

Function week_num(theweek As Integer) As String
'Returns the properly formatted week string
If theweek = 5 Then
    week_num = "-1"   'This is the iCal code for the last week of the month
Else
    week_num = FormatNumber(theweek, 0)
End If
End Function

Function days_of_week(theweek As String, myPattern As RecurrencePattern) As String
'Returns a string from the DayOfWeekMask property

If myPattern.DayOfWeekMask And olMonday Then
    days_of_week = theweek & "MO"
End If
If myPattern.DayOfWeekMask And olTuesday Then
    If days_of_week <> "" Then
        days_of_week = days_of_week & ","
    End If
    days_of_week = days_of_week & theweek & "TU"
End If
If myPattern.DayOfWeekMask And olWednesday Then
    If days_of_week <> "" Then
        days_of_week = days_of_week & ","
    End If
    days_of_week = days_of_week & theweek & "WE"
End If
If myPattern.DayOfWeekMask And olThursday Then
    If days_of_week <> "" Then
        days_of_week = days_of_week & ","
    End If
    days_of_week = days_of_week & theweek & "TH"
End If
If myPattern.DayOfWeekMask And olFriday Then
    If days_of_week <> "" Then
        days_of_week = days_of_week & ","
    End If
    days_of_week = days_of_week & theweek & "FR"
End If
If myPattern.DayOfWeekMask And olSaturday Then
    If days_of_week <> "" Then
        days_of_week = days_of_week & ","
    End If
    days_of_week = days_of_week & theweek & "SA"
End If
If myPattern.DayOfWeekMask And olSunday Then
    If days_of_week <> "" Then
        days_of_week = days_of_week & ","
    End If
    days_of_week = days_of_week & theweek & "SU"
End If


End Function

Function month_num(ByVal mymonth As String) As Integer
'Returns month number

mymonth = LCase(mymonth)
If mymonth = "january" Or mymonth = "jan" Then
    month_num = 1
ElseIf mymonth = "february" Or mymonth = "feb" Then
    month_num = 2
ElseIf mymonth = "march" Or mymonth = "mar" Then
    month_num = 3
ElseIf mymonth = "april" Or mymonth = "apr" Then
    month_num = 4
ElseIf mymonth = "may" Then
    month_num = 5
ElseIf mymonth = "june" Or mymonth = "jun" Then
    month_num = 6
ElseIf mymonth = "july" Or mymonth = "jul" Then
    month_num = 7
ElseIf mymonth = "august" Or mymonth = "aug" Then
    month_num = 8
ElseIf mymonth = "september" Or mymonth = "sep" Then
    month_num = 9
ElseIf mymonth = "october" Or mymonth = "oct" Then
    month_num = 10
ElseIf mymonth = "november" Or mymonth = "nov" Then
    month_num = 11
ElseIf mymonth = "december" Or mymonth = "dec" Then
    month_num = 12
End If

End Function


Function FormatICalDateTime(thedate As Date) As String
'Returns a string formatted in the iCal format

FormatICalDateTime = DatePart("yyyy", thedate) & mypad(DatePart("m", thedate)) & mypad(DatePart("d", thedate)) _
              & "T" & mypad(DatePart("h", thedate)) & mypad(DatePart("n", thedate)) & mypad(DatePart("s", thedate))

End Function

Function FormatICalDate(thedate As Date) As String
'Returns a string formatted in the iCal format with just the date

FormatICalDate = DatePart("yyyy", thedate) & mypad(DatePart("m", thedate)) & mypad(DatePart("d", thedate))

End Function

Function mypad(thenum As Integer) As String

mypad = FormatNumber(thenum, 0)

If Len(mypad) < 2 Then

    mypad = "0" & mypad

End If

End Function

Function RemoveCR(thestr As String) As String
'Removes all instances of the carriage return and replaces with "\n"

thestr = Replace(thestr, Chr(10), "\n")  'Line feed
thestr = Replace(thestr, Chr(13), "\n")  'Carriage return

'For some reason, we end up with too many \n's.  Go back and cut them in half.
thestr = Replace(thestr, "\n\n", "\n")

'Mark the commas.  This ensures proper import to mozilla/calendar
thestr = Replace(thestr, ",", "\,")

RemoveCR = thestr

End Function

Public Function category_found(catarray() As String, thecat As String) As Boolean

Dim cat As Variant

category_found = False
For Each cat In catarray
    If cat = thecat Then
        category_found = True
        Exit For
    End If
Next cat
End Function


Sub test()
#Warn

objOutlook := ComObjActive("Outlook.Application")
mapi := objOutlook.GetNamespace("MAPI")

;mapi.Logon("Outlook")

myOlExp = mapi.ActiveExplorer()

bar = myOlExp.CommandBars.Add("Test")

msoControlButton := 1
button := bar.Controls.Add(msoControlButton)
button.Caption := "Hello World"
button.FaceId := 33
button.Style := 2 ;msoButtonIconAndCaption
button.TooltipText := "Assigns email."
bar.Visible := true
Return
End Sub

Leider halt bisschen aufwändig. Auf dem Handy dann das Tool iCal Import/Export installieren und damit die Datei einlesen, welche vom Makro erstellt wurde.

Wenn jemand einen besseren Weg findet ohne Adminrechte den Kalender zu Synchronisieren mittels nur anstecken (und ohne denn google Kalender) nur her mit der Info

[Ugy]

Hallo,

auf dem XP Laptop habe ich Adminrechte. Habe auch eine normale Installation sowie die Portable Variante ausprobiert. Bei beiden wird einfach keine Verbindung aufgebaut. Anscheinend hat die Kiste mal probiert Treiber zu installieren, was aber nicht geklapt hat.
Naja, das liegt wohl eher an XP als an sonst was. Werde wohl einfach drauf verzichten und es nur zu Hause mit meinem Win7-Rechner machen.

Trotzdem Danke

Ugy

[hd2neuling]

Kannst Du auf Deinem Arbeitsrechner HTC-Sync installieren?
Sollte eigentlich die Treiber fürs OneX mitinstallieren.
Ansonsten gäbe es mit MyPhoneExplorer auch die Möglichkeit, über WLAN zu synchronisieren, Versuch ist´s wert, ob das OneX da gefunden wird.

LG, Helmut

[Ugy]

Wie im ersten Post geschrieben, habe ich ja zuerst den HTC Sync Manager probiert. Ich konnte Musik, Bilder, Kalender, etc alles synchronisieren. Nur nicht die Kontakte. Da war im rechten Feld alles grau und man konnte nix anklicken.

Ugy

[installchk]

Hi

Bei mir hat alles ohne Probleme mit der HTC Sync funktioniert.

Habe die neueste Version von hier http://www.htc.com/de/help/htc-one-x/#overview geladen und ab die Post.

Die Sync hat zwar gewisse Schwächen (man kann zum Teil die Pfade nicht selber zuordnen) aber im grossen ganzen funktioniert sie.

Gruss
Chris

[Ugy]

OK, ich vermute aber mal, wenn es mit MyPhoneExplorer nicht ging, dann geht es auch nicht mit dem HTC Sync Manager.
Das Prob hab ich ja nur auf meinem XP Laptop, und hat irgendwas mit der Verbindung zu zun.
Auf Win7 läuft ja MPE ohne Probleme.

Ugy

[hd2neuling]

Auf dem Arbeits-Rechner HTC-Sync installieren hätte ich nur gedacht, um die Treiber draufzubekommen
Ich habe leider momentan keinen Link für die Treiber alleine
Danach mit MPE versuchen, evtl. eben über WLAN.

LG, Helmut

[Ugy]

achso meinst du das. OK, werd ich morgen auf der Arbeit testen. Danke.

Ugy

[Ugy]

Wollte mich nochmal melden.
hd2neuling. Dein Tip hat funktioniert, und ich kann nun auch auf XP syncen.
Vielen Dank

Ugy

[bernwag]

Hallo Freunde!

Auf der xdadevelopers Seite gibt es einen Link, um den Htc Sync MANAGER herunterzuladen:

[URL="http://forum.xda-developers.com/showthread.php?t=1665262"]

Hab ihn gerade heruntergeladen und installiert - ohne Probleme.
Bin gerade am testen.

LG
bernwag

[Narsil]

Ich habe auch XP, Outlook 2010 und kann meinen Kalender über HTC Sync nicht syncen. Das HOX wird erkannt und die Verbindung bleibt auch stabil aber es kommt immer eine Fehlermeldung wenn ich den Sync starte. Die Meldung hab ich jetzt nicht zur Hand aber es ist was mit PIM.

Gesendet von meinem HTC One X mit Tapatalk 2