ศุภชัย(หาดใหญ่)ประเสริฐเวชทนต์
Location :


[Profile ทั้งหมด]

ให้ทิปเจ้าของ Blog [?]
ฝากข้อความหลังไมค์
Rss Feed
Smember
ผู้ติดตามบล็อก : 72 คน [?]




Group Blog
 
All Blogs
 
Friends' blogs
[Add ศุภชัย(หาดใหญ่)ประเสริฐเวชทนต์'s blog to your web]
Links
 

 
บันทึกช่วยจำ : ขั้นตอนการย้ายข้อมูลจาก 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 น. 0 comments
Counter : 1008 Pageviews.
 Pantip.com | PantipMarket.com | Pantown.com | © 2004 BlogGang.com allrights reserved.