Question : Un manuscrit pour renvoyer l'information d'utilisateur

Bonjour, le
I AM recherchant un manuscrit que j'enverrai aux utilisateurs et quand ils le cliquent dessus il m'enverront un email avec l'utilisateur suivant du

1. de l'information (dans exceler ou email plat l'une ou l'autre manière) d'abord et les dernières fenêtres du name
2. ouvrent une session le nom de fichier des perspectives PST du
4. d'imprimeurs relié par/>3. de Name
5. # (exemple.

Thank You
de Dell D430) class= de

Réponse : Un manuscrit pour renvoyer l'information d'utilisateur

Bonjour, j'ai ajouté le nom d'ordinateur, mais il est difficile de découvrir où le dossier de PST est stocké.  C'est une valeur binaire assombrie dans l'enregistrement.

Dans la mesure où les endroits de défaut disparaissent, cependant, si vous regardez ici :
http://office.microsoft.com/en-us/outlook-help/using-the-microsoft-outlook-personal-folders-backup-tool-HA001087532.aspx

sous « où les dossiers de .pst sont » titre stocké, vous trouverez l'endroit de défaut pour chacun du système d'exploitation.

Respect,

Rob.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 : 38 : 39 : 40 : 41 : 42 : 43 : 44 : 45 : 46 : 47 : 48 : 49 : 50 :

Placer l'objNetwork = le CreateObject (« WScript.Network ») Placer l'objADSysInfo = le CreateObject (« ADSystemInfo ») Placer l'objUser = le GetObject (« LDAP : / » et objADSysInfo.UserName) 'Variables d'email : strServer = « mailhost.abc.com » strTo = « [email protected] » strFrom = « [email protected] » strSubject = « sujet ici » strBody = « nom :  » et objUser.givenName et « « et objUser.sn et VbCrLf et _ « Nom de connexion :  » et objUser.samAccountName et VbCrLf et VbCrLf et « imprimeurs :  » Placer les objPrinters = l'objNetwork.EnumPrinterConnections Pour l'intPrinter = 0 à objPrinters.Count - 1 étape 2 strBody = strBody et VbCrLf et objPrinters (intPrinter) et vbTab et objPrinters (intPrinter + 1) Après strComputer = « . » Placer l'objWMIService = le GetObject (« winmgmts : {impersonationLevel=impersonate} ! \ \ » et strComputer et « \ racine \ cimv2 ») Placer le colComputer = l'objWMIService.ExecQuery (« fabricant choisi, modèle de Win32_ComputerSystem ») Pour chaque objComputer dans le colComputer strManufacturer = « fabricant :  » et objComputer.Manufacturer strModel = « modèle :  » et objComputer.Model Après strBody = strBody et VbCrLf et VbCrLf et « nom d'ordinateur :  » et objNetwork.ComputerName et VbCrLf et « modèle d'ordinateur :  » et strModel strServer de SendEmail, strTo, strFrom, strSubject, strBody MsgBox « email a été envoyé. » SendEmail secondaire (strServer, strTo, strFrom, strSubject, strBody) Faible objMessage Placer l'objMessage = le CreateObject (« CDO.Message ») objMessage.To = strTo objMessage.From = strFrom objMessage.Subject = strSubject objMessage.TextBody = strBody la 'section de ==This fournit les informations de configuration pour le serveur à distance de smtp. objMessage.Configuration.Fields.Item (« http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2 'Nom ou IP de serveur à distance de smtp objMessage.Configuration.Fields.Item (« http://schemas.microsoft.com/cdo/configuration/smtpserver ") = strServer 'Port de serveur (en général 25) objMessage.Configuration.Fields.Item (« http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25 objMessage.Configuration.Fields.Update 'section== à distance de configuration de serveur de smtp de ==End objMessage.Send Placer l'objMessage = rien Finir le sous-marin