Interpretation VB_code en C#

Version imprimable

Bonjour á tous,
Etant nul en Visual Basic, j ai resu le code suivant que je dois implementer en C#. je ne comprend pas tres bien ce que le code fait et vue l exercice que j ai recue je dois etre á mesure de lire les emails de notre Server.
SVP es ce que quelqu´un peut me dire ce que ce code effectue et comment je peux commencer pour l´implementer en C#? voilá le code

Code:

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
 
Dim oApp, oAccount, oArchive, oItem, oItems2, oFile, objFSO, oItem2, oFSO ' object variables
Dim dbConnection, dbRecordset ' DB variables
Dim strConnection, strSQL, strInput, strFile, s_emessage, strFolder, strAppStart 'string variables
Dim i, iPosition, iPositionRFS, iPositionAVN, iPositionAT, iPositionSKU, iPositionAAID, iPositionBra, iLoopQ, ii, iResult, iVersion, iSQLq, iProgress  'integer variables
Dim eLongNameID, eLongNameApp, eDate, eDate2, eSubject, eSKU, eStatus, eVersion, eMonth, eAppID, eAppType, eBody, eSKU2  'email's variables
Set oApp = CreateObject("DVOBJAPILib.DvISEAPI") ' Preparing connection to david.fx itunes email store
Set oAccount = oApp.Logon("", "", "", "", "", "NOAUTH")
Set dbConnection = CreateObject("ADODB.Connection") ' Preparing connection to DB serverDo
	Set oArchive = oAccount.ArchiveFromID("\\david\david\archive\18\4\2\0\slitte")
	Set oItems2 = oArchive.GetArchiveEntries("default")
 
	iLoopQ = oItems2.Count - 1 'Query quantity of emails (From 0 thus -1)
 
	If bTestDB = 0 And bTest = 0 Then 
		If iLoopQ > 0 Then
			oFile.Write "[" & Now() & "] Starting scan of " & iLoopQ +1 & " email(s)." & vbCrLf
			'iResult = MsgBox("Will scan " & iLoopQ +1 &  " records from David.fx", 1)
			iResult = 0
		End If
	End If
	If bTestDB <> 0 Then 
		oFile.Write  "[" & Now() & "] Test mode, no Deleting email action. Scan of " & iLoopQ +1 & " email(s)." &  vbCrLf
		WScript.StdOut.Write("Will scan in TEST mode " & iLoopQ +1 &  " records from David.fx" &  vbCrLf)
		'iResult = MsgBox("Will scan in TEST mode " & iLoopQ +1 &  " records from David.fx", 1)
	End If
	If bTest <> 0 Then 
		oFile.Write  "[" & Now() & "] Test mode, no SQL and Deleting action. Scan of " & iLoopQ +1 & " email(s)." &  vbCrLf
		WScript.StdOut.Write("Will scan in TEST mode " & iLoopQ +1 &  " records from David.fx" &  vbCrLf)
		'iResult = MsgBox("Will scan in TEST mode " & iLoopQ +1 &  " records from David.fx", 1)
	End If

Merci d´avance pour toutes vos suggestions
maeva

19/03/2014, 13h06
chaparo

ici
19/03/2014, 13h29
maeva87

Merci pour le site de conversion.
Mais je reussis juste a convertir les declarations. pour les autres lignes je recois le message suivant

Code:

An error occured converting your code, probably due to a syntax error: -- line 1 col 1: EOF expected

que faut-il faire?
merci
19/03/2014, 14h02
Pol63

essaye plutot de recoder plutot que transcrire, ce code n'est pas très joli

tu as une dll DVOBJAPILib ?
19/03/2014, 14h10
maeva87

oui j ai une dll DVOBJAPILib

SVP quel est l´ecriture des 4 lignes suivantes en C#

Code:

1
2
3
4
5
Set oApp = CreateObject("DVOBJAPILib.DvISEAPI") ' Preparing connection to david.fx itunes email store
Set oAccount = oApp.Logon("", "", "", "", "", "NOAUTH")
Set dbConnection = CreateObject("ADODB.Connection") ' Preparing connection to DB serverDo
	Set oArchive = oAccount.ArchiveFromID("\\david\david\archive\18\4\2\0\slitte")
	Set oItems2 = oArchive.GetArchiveEntries("default")

merci

19/03/2014, 14h34
nadjibnet

Il existe de nombreux convertisseurs de code sur le net VOILA DES EXEMPLES

Et pour ton problème pense que cela pourront t’être utile:

http://www.codeproject.com/Articles/...imple-MAPI-NET

http://www.emailarchitect.net/eagetm...arp.aspx?cat=2

Et Sinon voila la d'autres
19/03/2014, 14h44
wallace1

:ptdr: Arrêtez- les gars maeva87 a demandé si gentiment qu'on lui traduise ce snippet qu'elle ne comprends même pas du fait........lool^^
Allez une ame charitable....

PS : j'arrête c'est ironique et de surcroît complètement gratuit ...

:mouarf:

Citation:

Envoyé par maeva87

SVP quel est l´ecriture des 4 lignes suivantes en C#

Code:

1
2
3
4
5
Set oApp = CreateObject("DVOBJAPILib.DvISEAPI") ' Preparing connection to david.fx itunes email store
Set oAccount = oApp.Logon("", "", "", "", "", "NOAUTH")
Set dbConnection = CreateObject("ADODB.Connection") ' Preparing connection to DB serverDo
    Set oArchive = oAccount.ArchiveFromID("\\david\david\archive\18\4\2\0\slitte")
    Set oItems2 = oArchive.GetArchiveEntries("default")

merci

ca ressemble plus à du code vb6, même si je crois qu'on peut encore écrire ca en vb.net
je pense donc que ca se traduirait en

Code:

1
2
3
4
 
DvISEAPI oApp = new DvISEAPI; /// classe dans DVOBJAPILib
oApp.Login("", "", "", "", "", "NOAUTH");
oArchive object = oAccount.ArchiveFromID(@"\\david\david\archive\18\4\2\0\slitte") /// j'ai mis object mais regarde le type de retour

etc...