ในเครื่อง 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 น.		0 comments
Counter : 1585 Pageviews.
Share Tweet