Mesdames, Messieurs
 
J'ai crée un projet VBA sous Outlook. (import de contact via un fichier txt)
Je voudrais maintenant grace à cette source me créer un VBScript.
Mais je ne sais pas comment faut faire, les classes et objets sont plus les mêmes ?
 
En gros voici mon code VBA :  
 
Sub test()
 
Rem // Déclaration des variables //
 
Dim Outlook As Outlook.Application
Dim Name As Outlook.NameSpace
Dim NewContacts As Outlook.MAPIFolder
Dim tmp As Outlook.MAPIFolder
Dim contact As Outlook.ContactItem
Dim fs, a
Dim chaine, Nvllechaine, Nvllechaine2, Nvllechaine3, Nvllechaine4
Dim NewItem As Outlook.ContactItem
Dim NbrLignes
 
Set Outlook = GetObject(, "Outlook.Application" )
Set Name = Application.GetNamespace("MAPI" )
Set tmp = Name.GetDefaultFolder(olFolderContacts)
Set NewContacts = tmp.Folders.Add("SSSS", olFolderContacts)
Set fs = CreateObject("Scripting.FileSystemObject" )
Set a = fs.OpenTextFile("T:\ListeUsersIntranet.txt" )
NbrLignes = 0
Do While a.AtEndOfStream <> True
NbrLignes = NbLignes + 1
chaine = a.readLine()
b = Len(chaine)
Pos = InStr(chaine, Chr(9))
Nvllechaine = Left(chaine, Pos - 1)
Nvllechaine2 = Right(chaine, b - Pos)
pos2 = InStr(Nvllechaine2, Chr(9))
Nvllechaine3 = Left(Nvllechaine2, pos2 - 1)
Nvllechaine4 = Right(Nvllechaine2, (Len(Nvllechaine2) - Len(Nvllechaine3)) - 1)
Set NewItem = NewContacts.Items.Add(olContactItem)
NewItem.LastName = Nvllechaine
NewItem.FirstName = Nvllechaine3
NewItem.Email1Address = Nvllechaine4
NewItem.Save
Loop
a.Close
 
End Sub
 
J'ai plein d'erreur si je le compile dasn un éditeur de script ...
 
Merci pour vos lanternes ...