บันทึกช่วยจำ : ขั้นตอนการย้ายข้อมูลจาก Palm Contacts ไป GMail Contacts
ในเครื่อง Palm เข้า Contacts / เลือก Category สั่ง เมนู / Send Category เลือกว่า Send ไปไว้ที่ Card จะได้ไฟล์ .vcf (ทำจาก PalmDesktop ก็ได้) เอาไฟล์ .vcf ไปปรับแต่งนิดหน่อย (ต้องทำก่อนจะมา Import แต่จะบันทึกไว้ภายหลัง) เมื่อปรับแต่งแล้วสั่ง Import เข้า Gmail Contacts พอ Import แล้วจะกลายเป็น Group ใหม่ ให้เปิดเข้า Group นั้น แล้ว เลือกทั้งหมด / ย้าย Group / ลบ Group ที่ได้มาใหม่ เรียบร้อยครับ ขั้นตอนการปรับแต่ง 1. เปิดไฟล์ .vcf ด้วย Notepad 2. แปะเข้า Word แล้วสั่ง Run Macro (เน้นการปรับชื่อ Field และแก้เนื้อหา Note) 3. Select All / Cut เนื้อหาจาก Word ไปแปลงภาษาไทยที่ www.webatic.com/run/convert/qp.php โดยแปะไว้กรอบล่าง / เลือกด้านบนเป็น Thai (TIS 620) แล้วกด Decode คัดลอกเนื้อหาข้างบน กลับไปแปะทับใน Notepad เดิมได้เลย ตอนนี้ภาษาไทยอ่านได้แล้ว 4. ใน Notepad ให้ File / Save as เลือก Encode ล่างสุดเป็น UTF-8 5. เรียบร้อย ไฟล์นี้ พร้อมจะ Import เข้า gMail Contacts ครับ Macro ของ Word Sub ChangeVCF_Palm_To_GMail() ' ' ChangeVCF_Palm_To_GMail Macro ' Macro created 29/08/53 Modified 29/6/55 by SupachaiHadyai ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "=0D=0A=^p" .Replacement.Text = "n" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "NOTE;CHARSET=windows-1252;ENCODING=QUOTED-PRINTABLE:" .Replacement.Text = "NOTE:" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With ActiveWindow.ActivePane.SmallScroll Down:=-2 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "X-Palm-Custom?:" .Replacement.Text = "ADR;ENCODING=QUOTED-PRINTABLE:;;" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ActiveWindow.ActivePane.SmallScroll Down:=-27 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "X-Palm-Custom?;ENCODING=QUOTED-PRINTABLE:" .Replacement.Text = "ADR;ENCODING=QUOTED-PRINTABLE:;;" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ActiveWindow.ActivePane.SmallScroll Down:=-28 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "X-PALM-IM;Yahoo;ENCODING=QUOTED-PRINTABLE:" .Replacement.Text = "ADR;ENCODING=QUOTED-PRINTABLE:;;" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ActiveWindow.ActivePane.SmallScroll Down:=-17 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "X-PALM-IM;Yahoo:" .Replacement.Text = "ADR;ENCODING=QUOTED-PRINTABLE:;;" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ActiveWindow.ActivePane.SmallScroll Down:=-17 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "URL;WORK:" .Replacement.Text = "URL;ENCODING=QUOTED-PRINTABLE;WORK:" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
Create Date : 29 มิถุนายน 2555 | | |
Last Update : 29 มิถุนายน 2555 23:24:44 น. |
Counter : 1632 Pageviews. |
| |
|
|
|