Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1342 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Passage du VBA au VBS ??

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Passage du VBA au VBS ??

n°1101600
engalerema​n
Posté le 30-05-2005 à 13:44:46  profilanswer
 

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 ...

mood
Publicité
Posté le 30-05-2005 à 13:44:46  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Passage du VBA au VBS ??

 

Sujets relatifs
Mot de passe VBA[VBS] Sendkey
Editeur VBS genre VB[Excel VBA] protéger des cellule en maintenant l'accès au plan
Explications et trucs^^ [VBA][VBA] Outlook: pieces jointes partiellement sauvegardees
VBS Reqeute[VBA Excel macro]réutilisation de variable + comparaisons auto
problème VBA Access : "Procédure trop grande"Comparaison de dates sous VBA
Plus de sujets relatifs à : Passage du VBA au VBS ??


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR