Mira cómo exportar guías telefónicas en lotes al formato VCF, ¡presta atención! Está en lotes, no hables de cada uno.

El primer método:

Paso 1: Abra Microsoft Outlook, haga clic en Menú→Herramientas→Macro→Visual Basic Editor

Paso 2: Ingrese un párrafo para escribir Buen código (código específico al final)

Paso 3: haga clic en Ejecutar, para que todos los contactos se puedan exportar a una carpeta específica (la dirección de la carpeta especificada es el código en el apéndice (Modificar en)

Paso 4: Utilice la herramienta vcfEncoding para convertir, de modo que todos los archivos de contactos se puedan guardar en la carpeta local designada. (Por ejemplo, hay 500 contactos, lo que equivale a 500 archivos, con el nombre de sufijo .vcf).

Paso 5: Si es un teléfono móvil Nokia, puede copiar todos los archivos de contactos a la carpeta:\others\Contacts de la tarjeta del teléfono móvil → abra la carpeta de la tarjeta de presentación del teléfono y luego haga clic para Copie la tarjeta de presentación.

(vcfEncoding se puede encontrar en línea)

Segundo método:

Paso 1: abra Microsoft Outlook, haga clic en Menú → Archivo → Importar y exportar archivos

Paso 2: Exporte el archivo, seleccione el formato de tabla de Excel y guárdelo en un archivo xls específico

Paso 3: Utilice vcfeditor (otra herramienta, más conveniente) para importar el archivo que acaba de guardado

Paso 4: use contactos separados para guardar.

Paso 5: Copie todos los archivos a la tarjeta del teléfono móvil, como la carpeta E:\others\Contacts.

Paso 6: Abra la carpeta de tarjetas de presentación en su teléfono y haga clic en "Copiar tarjeta de presentación".

(Busque vcfeditor en línea, hay muchos)

Nota: si es un teléfono móvil Nokia, al copiar archivos, debe cambiar el modo de conexión a PC Suite para almacenamiento masivo. y al copiar Al llamar a una tarjeta de presentación, vuelva al modo PC Suite. (Después de usarlo muchas veces, creo que el método dos es mejor y más conveniente)

Código del método uno:

En Herramientas de Outlook->Macros, cree una nueva macro con cualquiera. nombre, Entrada:

Sub ExportVcards()

Atenuar MisContactos Como Outlook.MAPIFolder

Atenuar ContItem Como Outlook.ContactItem

Atenuar Nombre de Archivo Como cadena

Establezca MyContacts = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

Para cada elemento de contenido en MyContacts.Items

FileName = "d :\ Contactos\" & ContItem.FileAs & ".vcf"

ContItem.SaveAs FileName, olVCard

Siguiente

Fin Sub

Nota: "c:/Contacts" anterior es la carpeta de destino para la salida.

Luego ejecute. Si falla, verifique si la carpeta "c:/Contacts" existe (si no existe, créelo primero). Y en Outlook, Herramientas->Seguridad, si tiene permiso para ejecutar macros.