Einfachster Weg zum Synchronisieren und Probleml mit XP
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.
AW: Einfachster Weg zum Synchronisieren und Probleml mit XP
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:
Code:
' 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 :-)
AW: Einfachster Weg zum Synchronisieren und Probleml mit XP
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
AW: Einfachster Weg zum Synchronisieren und Probleml mit XP
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
AW: Einfachster Weg zum Synchronisieren und Probleml mit XP
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
AW: Einfachster Weg zum Synchronisieren und Probleml mit XP
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
AW: Einfachster Weg zum Synchronisieren und Probleml mit XP
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
AW: Einfachster Weg zum Synchronisieren und Probleml mit XP
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
AW: Einfachster Weg zum Synchronisieren und Probleml mit XP
achso meinst du das. OK, werd ich morgen auf der Arbeit testen. Danke.
Ugy
AW: Einfachster Weg zum Synchronisieren und Probleml mit XP
Wollte mich nochmal melden.
hd2neuling. Dein Tip hat funktioniert, und ich kann nun auch auf XP syncen.
Vielen Dank
Ugy
AW: Einfachster Weg zum Synchronisieren und Probleml mit XP
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
