Hiếp... Làm sao thêm được số 3 trong danh bạ điện thoại của Outlook?

[cuongvx]

em cũng đang lọ mọ cái này đây
chắc sắp tới có cái soft xử lý vụ này đấy bác
cứ chờ vài hôm vậy

Em nghĩ giải pháp lập trình này hay đấy, quá chuẩn...

 

[Sâu Róm]

Nhà em cũng phải làm bằng cơm các bác ạ. :'(:'(:'(:'(:'( May mà có hơn 500 số cố định.

 

[totorauxom]

E-Phone của EVN thì thêm số 2, nhưng chưa biết bao giờ mới áp dụng bác ạ.

Chết toi em roài, cứ tưởng ở đâu gọi cố định hà nội là bấm (043) . Thanks bác, em ngu rồi. Lại trả giá bằng tiền mặt rồi, vừa đi in 1 đống card (043) 2xxxxx thé có đen k cơ chứ:'(:'(:'(.
Thanks các bác nhiều:'(:'(:'(

 

[Cà Phê Đắng]

Chết toi em roài, cứ tưởng ở đâu gọi cố định hà nội là bấm (043) . Thanks bác, em ngu rồi. Lại trả giá bằng tiền mặt rồi, vừa đi in 1 đống card (043) 2xxxxx thé có đen k cơ chứ:'(:'(:'(.
Thanks các bác nhiều:'(:'(:'(

Bác mang đống card vừa in xong cho em xin đê. Em có việc cần

 

[toanco_k32]

Em vừa xử lý xong, danh bạ của em gần 800 số
Cách làm ạ:
- Export ra CSV (vd: danhba.csv)
- Lưu 1 bản của danhba.csv sang chỗ khác
- Dùng notepad (NOTEPAD nhé, không phải Excel nhé) mở danhba.csv
- Replace:
"04 thành "043
"08 thành "083
.......
Chỗ này cần giải thích một chút:
File CSV thực ra là một file text, các trường cách nhau bằng dấu phẩy (,), mỗi một trường có thông tin đều bắt đầu bằng dấu mở nháy kép ("). Do đó nếu thay chuỗi "04 bằng chuỗi "043 là đảm bảo các số điện thoại HN đều được thay ngon lành.
Nếu bác nào lưu theo kiểu +844xxxxxxx thì sẽ phải thay "+844 thành "+8443
- Save file danhba.cvs
- Mở outlook, chọn contact, xóa sạch cái hiện có (Ctrl+A, delete)
- Import cái danh bạ mới vào
Done

 

[Con_Ra_Ga_Vao]

Em ké bác chủ thớt tý, cái chữ ký trong Outlook 2007 mục email và website em muốn đánh vào mà click được luôn thì làm thế nào ạ? em đánh vào nó chỉ là kí tự thôi chứ k phải thành đường dẫn, thanks các bác(b)

Đơn giản thôi cụ ạ
Trong outlook cụ chọn Tools-> Options. Trên cửa sổ Options. Cụ bấm Tab Mail Format -> Bấm nút Signatures... Cửa sổ soạn thảo chữ ký hiện ra cụ cứ việc ký. Chèn email, link cụ cứ việc chèn là xong. Cụ có thể chọn cách soạn chữ ký của cụ trong MS Word hoặc MS Front Page rồi paste vào mục edit signature là xong.
Chúc cụ thành công (b)

 

[bes]

Em vừa xử lý xong, danh bạ của em gần 800 số
Cách làm ạ:
- Export ra CSV (vd: danhba.csv)
- Lưu 1 bản của danhba.csv sang chỗ khác
- Dùng notepad (NOTEPAD nhé, không phải Excel nhé) mở danhba.csv
- Replace:
"04 thành "043
"08 thành "083
.......
Chỗ này cần giải thích một chút:
File CSV thực ra là một file text, các trường cách nhau bằng dấu phẩy (,), mỗi một trường có thông tin đều bắt đầu bằng dấu mở nháy kép ("). Do đó nếu thay chuỗi "04 bằng chuỗi "043 là đảm bảo các số điện thoại HN đều được thay ngon lành.
Nếu bác nào lưu theo kiểu +844xxxxxxx thì sẽ phải thay "+844 thành "+8443
- Save file danhba.cvs
- Mở outlook, chọn contact, xóa sạch cái hiện có (Ctrl+A, delete)
- Import cái danh bạ mới vào
Done

lưu ý cố định của EVN, Vietel, FPT,VTC, Bộ công An, Quân đội, Cục Bưu Điện Trung Ương nhé: EVN : số 2, VTL : số 6, các loại khác em không nhớ
Rồi còn số máy liên tỉnh nữa ạ, nói chung là nhọc nếu các bác có quá nhiều số cố định. Em toàn lưu di động nên nhàn tênh.

 

[ptdung]

Em vừa xử lý xong, danh bạ của em gần 800 số
Cách làm ạ:
- Export ra CSV (vd: danhba.csv)
- Lưu 1 bản của danhba.csv sang chỗ khác
- Dùng notepad (NOTEPAD nhé, không phải Excel nhé) mở danhba.csv
- Replace:
"04 thành "043
"08 thành "083
.......
Chỗ này cần giải thích một chút:
File CSV thực ra là một file text, các trường cách nhau bằng dấu phẩy (,), mỗi một trường có thông tin đều bắt đầu bằng dấu mở nháy kép ("). Do đó nếu thay chuỗi "04 bằng chuỗi "043 là đảm bảo các số điện thoại HN đều được thay ngon lành.
Nếu bác nào lưu theo kiểu +844xxxxxxx thì sẽ phải thay "+844 thành "+8443
- Save file danhba.cvs
- Mở outlook, chọn contact, xóa sạch cái hiện có (Ctrl+A, delete)
- Import cái danh bạ mới vào
Done

Vodka bác! Cách bác đơn giản nhưng hiệu quả, em đã bắt chước thành công, đỡ quá. Lưu ý thêm 1 chút là nếu bác nào không tìm thấy chỗ nào đề CSV thì chọn chỗ nào ghi "Comma Separated Value (Windows)" (tức là viết đầy đủ của CSV ). Xử lý mấy cái dữ liệu quan trọng này phải chỉ rõ đầy đủ, chứ không tìm thấy đường hoặc thấy không rõ hoang mang lắm, sai 1 ly đi 1 dặm mà.

 

[totorauxom]

Bác mang đống card vừa in xong cho em xin đê. Em có việc cần

Âm mưu mang đi nhà nghỉ đưa cho em út chứ gì. Em mách Gấu nhà bác nhá.
Thanks các bác có cao kiến chuyển được số dt k mất công em quá(b)

 

[Longvh]

lưu ý cố định của EVN, Vietel, FPT,VTC, Bộ công An, Quân đội, Cục Bưu Điện Trung Ương nhé: EVN : số 2, VTL : số 6, các loại khác em không nhớ
Rồi còn số máy liên tỉnh nữa ạ, nói chung là nhọc nếu các bác có quá nhiều số cố định. Em toàn lưu di động nên nhàn tênh.

Em bực mình cái hội VNPT này lắm, em phải in lại card này, số ĐT ở nhà đang ngon này, rồi hôm nay một lô xích xông gọi cóc biết là ai cả, vì cứ nhét số 3 vào

Đã thế tối về xem TV thấy quảng cáo rầm rộ, số ĐT của bạn ĐƯỢC cộng thêm số 3 thành 8 số, cứ như là nó tặng quà cho mình cái gì quý lắm ấy :102:

 

[Con_Ra_Ga_Vao]

VNPT đổi 10 triệu số ... huhuhu

Em làm tin học. Anh em trong nghề chia sẻ nhau đoạn VBA sau.
--------------------------
Sau đây là đoạn mã trong outlook (2003,2007) có thể giúp chúng ta thay đổi hàng loạt.
Một số lưu ý:
- Trước khi thực hiện nên đồng bộ điện thoại di động với outlook (sync).
- Trước khi chạy đoạn mã này nên backup toàn bộ dữ liệu bằng cách copy thư mục dữ liệu pst của outlook ra chỗ khác, hoặc export ra excel hoặc access (hạn chế dùng excel vì 1 số trường hợp excel sẽ tự động làm biến đổi số điện thoại nhất là các dạng: 04-754321: excel sẽ làm pháp tính trừ, thế là hỏng hết.

Cách làm:
- Mở outlook, nhấn phím Alt-F11
- Copy paste đoạn mã dưới đây
- Thay mã vùng tương ứng (ví dụ "04" ->"043"...)
- Click chuột vào phần body của PhoneNumberAddressBookFindReplace()
- Nhấn phím F8
- Nhấn phím F5
- Xong


Script here

---------------
Public Sub PhoneNumberAddressBookFindReplace()

' PhoneNumberAddressBookFindReplace() Released under GPL, version 1.0
' (c) Dang Minh Tuan @ Vietkey Group
' Email: tuanvietkey@gmail.com
' Hanoi, 7-10-2008.
'
' Thay doi ma so dien thoai
' them so 3 vao dau
' vi du them dau so 3 cho cac so co dinh o Hanoi:
' ReFileContacts "04", "043"
'
'' vi du them dau so 3 cho cac so co dinh o tp HCM:
' ReFileContacts "08", "083"
'
ReFileContacts "04", "043"
End Sub
Public Sub ReFileContacts(findText As String, replaceText As String)
Dim items As items, item As ContactItem, folder As folder
Dim contactItems As Outlook.items
Dim itemContact As Outlook.ContactItem
Dim count As Integer
Set folder = Session.GetDefaultFolder(olFolderContacts)
Set items = folder.items
count = items.count
If count = 0 Then
MsgBox "Khong co dia chi nao!"
Exit Sub
End If
Set contactItems = items.Restrict("[MessageClass]='IPM.Contact'")
Dim n As Integer
n = 0
For Each itemContact In contactItems
If InStrB(1, itemContact.BusinessTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.BusinessTelephoneNumber = VBA.Replace(itemContact.BusinessTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.AssistantTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.AssistantTelephoneNumber = VBA.Replace(itemContact.AssistantTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.Business2TelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.Business2TelephoneNumber = VBA.Replace(itemContact.Business2TelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.BusinessFaxNumber, findText, vbBinaryCompare) = 1 Then
itemContact.BusinessFaxNumber = VBA.Replace(itemContact.BusinessFaxNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.CallbackTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.CallbackTelephoneNumber = VBA.Replace(itemContact.CallbackTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.CarTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.CarTelephoneNumber = VBA.Replace(itemContact.CarTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.CompanyMainTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.CompanyMainTelephoneNumber = VBA.Replace(itemContact.CompanyMainTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.Home2TelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.Home2TelephoneNumber = VBA.Replace(itemContact.Home2TelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.HomeFaxNumber, findText, vbBinaryCompare) = 1 Then
itemContact.HomeFaxNumber = VBA.Replace(itemContact.HomeFaxNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.HomeTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.HomeTelephoneNumber = VBA.Replace(itemContact.HomeTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.MobileTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.MobileTelephoneNumber = VBA.Replace(itemContact.MobileTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.OtherFaxNumber, findText, vbBinaryCompare) = 1 Then
itemContact.OtherFaxNumber = VBA.Replace(itemContact.OtherFaxNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.OtherTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.OtherTelephoneNumber = VBA.Replace(itemContact.OtherTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.PrimaryTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.PrimaryTelephoneNumber = VBA.Replace(itemContact.PrimaryTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.RadioTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.RadioTelephoneNumber = VBA.Replace(itemContact.RadioTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
itemContact.Save
Next
MsgBox "Da xong!"
End Sub

 

[bes]

Em bực mình cái hội VNPT này lắm, em phải in lại card này, số ĐT ở nhà đang ngon này, rồi hôm nay một lô xích xông gọi cóc biết là ai cả, vì cứ nhét số 3 vào

Đã thế tối về xem TV thấy quảng cáo rầm rộ, số ĐT của bạn ĐƯỢC cộng thêm số 3 thành 8 số, cứ như là nó tặng quà cho mình cái gì quý lắm ấy :102:

Chứ gì nữa, cái gì được thêm mà chả thích

các cụ nghiên cứu cái này để thêm đầu số cho chuẩn nhá, em hôm qua làm mất hết contact nên giờ không phải thêm đầu 3 nữa :'(:'(:'(

- 2 thành phố lớn là Hà Nội và TP.HCM sẽ có dải số thuê bao là: 8 chữ số. 62 tỉnh, thành còn lại sẽ có dải số thuê bao gồm 7 chữ số.
- Dịch vụ điện thoại cố định của VNPT sẽ được thêm số 3 vào đầu dãy số cũ, theo quy tắc: dãy số của Hà Nội và TP.HCM có 8 chữ số, dãy số của 62 tỉnh, thành còn lại có 7 chữ số. Dịch vụ của VNPT đã bắt đầu đổi từ ngày 5/10 vừa qua, tuy nhiên, cách gọi cũ vẫn được chấp nhận trong thời hạn 2 tuần. Sau ngày 19/10/2008, người dùng sẽ phải tìm tự quay cho đúng số điện thoại cố định mà mình đang gọi.
- 5 nhà cung cấp còn lại sẽ được phân chia đầu số như sau: Viettel đầu số 6; EVN đầu số 2; SPT đầu số 5; VTC đầu số 4; FPT sắp ra mắt dịch vụ với đầu số 7. Bắt đầu từ ngày 26/10/2008, số mới sẽ được áp dụng đối với 5 nhà cung cấp này.
- Mời quý độc giả xem Bảng tra cứu chi tiết của VietNamNet để dễ dàng sử dụng:

Các nhà cung cấp dịch vụ ​

Mã số đứng đầu cũ​

Mã số mới​

VNPT​

5, 6, 7, 8, 9
3 + 5, 6, 7, 8, 9

Viettel​

25, 26, 27, 28, 29
33 (tại 20 tỉnh)
6 +25, 26, 27, 28, 29
6 + 33 (tại 20 tỉnh)

EVN​

20, 21, 22, 23, 24
46, 47, 48, 49
2 + 20, 21, 22, 23, 24
2 + 46, 47, 48, 49

SPT​

40, 41, 42, 43, 44
(mới chỉ có tại TP.HCM)
5 + 40, 41, 42, 43, 44

VTC​

45
4 + 45

FPT​

(chưa có)
7 (sắp có)

​

Ví dụ:

• Một thuê bao cố định của VNPT trước đây có số là: 5.999999 thì nay đổi thành: 3.5.999999
• Một thuê bao cố định của Viettel trước đây có số: 25.66666, thì nay đổi thành: 6.25.66666
• Một thuê bao cố định của EVN trước đây có số: 20.55555, thì nay đổi thành: 2.20.55555
• Một thuê bao cố định của SPT trước đây có số là: 40.xxxxx, thì nay đổi thành: 5.40.xxxxx

- Bảng mã số tỉnh, thành:
STT
Tên Tỉnh / TP
Mã vùng
STT
Tên Tỉnh/ TP
Mã vùng
1
An Giang
76
31
Kon Tum
60
2
Bà Rịa Vũng Tàu
64
32
Lai Châu - Điện Biên
23
3
Bạc Liêu
781
33
Lạng Sơn
25
4
Bắc Kạn
281
34
Lào Cai
20
5
Bắc Giang
240
35
Lâm Đồng
63
6
Bắc Ninh
241
36
Long An
72
7
Bến Tre
75
37
Nam Định
350
8
Bình Dương
650
38
Nghệ An
38
9
Bình Định
56
39
Ninh Bình
30
10
Bình Phước
651
40
Ninh Thuận
68
11
Bình Thuận
62
41
Phú Thọ
210
12
Cà Mau
780
42
Phú Yên
57
13
Cao Bằng
26
43
Quảng Bình
52
14
Cần Thơ - Hậu Giang
71
44
Quảng Nam
510
15
TP. Đà Nẵng
511
45
Quảng Ngãi
55
16
ĐăkLăk - Đăk Nông
50
46
Quảng Ninh
33
17
Đồng Nai
61
47
Quảng Trị
53
18
Đồng Tháp
67
48
Sóc Trăng
79
19
Gia Lai
59
49
Sơn La
22
20
Hà Giang
19
50
Tây Ninh
66
21
Hà Nam
351
51
Thái Bình
36
22
Thủ đô Hà Nội mới
4
52
Thái Nguyên
280
23
Hà Tĩnh
39
53
Thanh Hoá
37
24
Hải Dương
320
54
Thừa Thiên Huế
54
25
TP. Hải Phòng
31
55
Tiền Giang
73
26
Hoà Bình
18
56
Trà Vinh
74
27
Hưng Yên
321
57
Tuyên Quang
27
28
TP. Hồ Chí Minh
8
58
Vĩnh Long
70
29
Khánh Hoà
58
59
Vĩnh Phúc
211
30
Kiên Giang
77
60
Yên Bái
29



61



Paste vào đây nó bị mất định dạng rồi, các cụ xem link bên trên nhá !!!

 

[BoTho]

Em vừa xử lý xong, danh bạ của em gần 800 số
Cách làm ạ:
- Export ra CSV (vd: danhba.csv)
- Lưu 1 bản của danhba.csv sang chỗ khác
- Dùng notepad (NOTEPAD nhé, không phải Excel nhé) mở danhba.csv
- Replace:
"04 thành "043
"08 thành "083
.......
Chỗ này cần giải thích một chút:
File CSV thực ra là một file text, các trường cách nhau bằng dấu phẩy (,), mỗi một trường có thông tin đều bắt đầu bằng dấu mở nháy kép ("). Do đó nếu thay chuỗi "04 bằng chuỗi "043 là đảm bảo các số điện thoại HN đều được thay ngon lành.
Nếu bác nào lưu theo kiểu +844xxxxxxx thì sẽ phải thay "+844 thành "+8443
- Save file danhba.cvs
- Mở outlook, chọn contact, xóa sạch cái hiện có (Ctrl+A, delete)
- Import cái danh bạ mới vào
Done

Em nghĩ cách làm của bác có chỗ chưa ổn. Nếu như điện thoại của em là 048250404 thì nếu làm theo kiểu của bác nó sẽ chuyển thành 043825043043 thì toi à???



:102::102::102:

 

[fatboy]

Em nghĩ cách làm của bác có chỗ chưa ổn. Nếu như điện thoại của em là 048250404 thì nếu làm theo kiểu của bác nó sẽ chuyển thành 043825043043 thì toi à???

Bác đọc không kỹ hướng dẫn rồi.
Phải thay "04 thành "043
Vì vậy dãy "048250404" sẽ thành "0438250404"

 

[toanco_k32]

Em làm tin học. Anh em trong nghề chia sẻ nhau đoạn VBA sau.
--------------------------
Sau đây là đoạn mã trong outlook (2003,2007) có thể giúp chúng ta thay đổi hàng loạt.
Một số lưu ý:
- Trước khi thực hiện nên đồng bộ điện thoại di động với outlook (sync).
- Trước khi chạy đoạn mã này nên backup toàn bộ dữ liệu bằng cách copy thư mục dữ liệu pst của outlook ra chỗ khác, hoặc export ra excel hoặc access (hạn chế dùng excel vì 1 số trường hợp excel sẽ tự động làm biến đổi số điện thoại nhất là các dạng: 04-754321: excel sẽ làm pháp tính trừ, thế là hỏng hết.

Cách làm:
- Mở outlook, nhấn phím Alt-F11
- Copy paste đoạn mã dưới đây
- Thay mã vùng tương ứng (ví dụ "04" ->"043"...)
- Click chuột vào phần body của PhoneNumberAddressBookFindReplace()
- Nhấn phím F8
- Nhấn phím F5
- Xong


Script here

---------------
Public Sub PhoneNumberAddressBookFindReplace()

' PhoneNumberAddressBookFindReplace() Released under GPL, version 1.0
' (c) Dang Minh Tuan @ Vietkey Group
' Email: tuanvietkey@gmail.com
' Hanoi, 7-10-2008.
'
' Thay doi ma so dien thoai
' them so 3 vao dau
' vi du them dau so 3 cho cac so co dinh o Hanoi:
' ReFileContacts "04", "043"
'
'' vi du them dau so 3 cho cac so co dinh o tp HCM:
' ReFileContacts "08", "083"
'
ReFileContacts "04", "043"
End Sub
Public Sub ReFileContacts(findText As String, replaceText As String)
Dim items As items, item As ContactItem, folder As folder
Dim contactItems As Outlook.items
Dim itemContact As Outlook.ContactItem
Dim count As Integer
Set folder = Session.GetDefaultFolder(olFolderContacts)
Set items = folder.items
count = items.count
If count = 0 Then
MsgBox "Khong co dia chi nao!"
Exit Sub
End If
Set contactItems = items.Restrict("[MessageClass]='IPM.Contact'")
Dim n As Integer
n = 0
For Each itemContact In contactItems
If InStrB(1, itemContact.BusinessTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.BusinessTelephoneNumber = VBA.Replace(itemContact.BusinessTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.AssistantTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.AssistantTelephoneNumber = VBA.Replace(itemContact.AssistantTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.Business2TelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.Business2TelephoneNumber = VBA.Replace(itemContact.Business2TelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.BusinessFaxNumber, findText, vbBinaryCompare) = 1 Then
itemContact.BusinessFaxNumber = VBA.Replace(itemContact.BusinessFaxNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.CallbackTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.CallbackTelephoneNumber = VBA.Replace(itemContact.CallbackTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.CarTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.CarTelephoneNumber = VBA.Replace(itemContact.CarTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.CompanyMainTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.CompanyMainTelephoneNumber = VBA.Replace(itemContact.CompanyMainTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.Home2TelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.Home2TelephoneNumber = VBA.Replace(itemContact.Home2TelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.HomeFaxNumber, findText, vbBinaryCompare) = 1 Then
itemContact.HomeFaxNumber = VBA.Replace(itemContact.HomeFaxNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.HomeTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.HomeTelephoneNumber = VBA.Replace(itemContact.HomeTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.MobileTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.MobileTelephoneNumber = VBA.Replace(itemContact.MobileTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.OtherFaxNumber, findText, vbBinaryCompare) = 1 Then
itemContact.OtherFaxNumber = VBA.Replace(itemContact.OtherFaxNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.OtherTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.OtherTelephoneNumber = VBA.Replace(itemContact.OtherTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.PrimaryTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.PrimaryTelephoneNumber = VBA.Replace(itemContact.PrimaryTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
If InStrB(1, itemContact.RadioTelephoneNumber, findText, vbBinaryCompare) = 1 Then
itemContact.RadioTelephoneNumber = VBA.Replace(itemContact.RadioTelephoneNumber, findText, replaceText, 1, 1, vbBinaryCompare)
End If
itemContact.Save
Next
MsgBox "Da xong!"
End Sub

Cái này là ví dụ cực kỳ trực quan của câu "Khi trong tay chỉ có 1 chiếc búa, thì cái gì trông cũng giống đinh cả"
Không biết bác TỲN này có lập trình việc ăn uống, ngủ nghê của mình bằng VB nữa hay không

 

[Con_Ra_Ga_Vao]

Bẩm cụ toanco_k32 em sống cũng không khoa học đến mức đó đâu ạ.(b)

 

[9Dragon]

Em làm tin học. Anh em trong nghề chia sẻ nhau đoạn VBA sau.
--------------------------
Sau đây là đoạn mã trong outlook (2003,2007) có thể giúp chúng ta thay đổi hàng loạt.

Cái này em cũng vừa đọc được trên một 4rum về IC nào đó mấy hôm trước.
Bác cẩn thận thế lại còn ghi cả tên mình trong đoạn mã (b)

 

[toanco_k32]

Bẩm cụ toanco_k32 em sống cũng không khoa học đến mức đó đâu ạ.(b)

Em đùa ấy mà bác. CÓ mỗi việc thay 04 thành 043 mà bác TỲN phải viết đến mấy chục dòng lệnh thế này, liệt kê hết các loại địa chỉ khác nhau có trong Outlook, rồi lại còn công bố dưới dạng mã mở tuân thủ GPL thì em :77:
Chưa kể đọc để hiểu phải thay 04 và 043 trong lời gọi hàm thành 08 và 083 để thay được số của TpHCM đòi hỏi kiến thức nhất định về lập trình bác ạ. Rồi lại còn xét xem 0420 thì sao, 0426 thì sao .....

 

[bes]

em nhặt nhạnh cái này về cho các bác này :
http://tinhte.com/forum/showthread.php?t=111511

Cập nhật thông tin bản sửa lỗi ngày 13/10/2008:

* Tính năng mới:

- Hiển thị trực quan tiến trình trong quá trình chuyển đổi

- Cho phép chuyển đổi thêm đầu số của Hà Tây, huyện Mê Linh cùng 4 xã thuộc Hoà Bình.

* Sửa chữa:

- Chỉnh sửa lại giao diện
- Sửa đổi logic để sửa số chuẩn xác hơn (passed qua nhiều test case điển hình)
- Đổi lại tên ứng dụng => đề nghị các bạn gỡ cài phiên bản cũ trước khi cài phiên bản mới.
- Sửa chức năng áp dụng "Tất cả" không hoạt động.

* Tính năng sẽ có ở phiên bản mới:

- Cho phép đổi số trong SIM