Discussion :

[maeva87]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chaparo]

ici

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

que faut-il faire?
merci

[Pol63]

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

tu as une dll DVOBJAPILib ?

[maeva87]

oui j ai une dll DVOBJAPILib

[maeva87]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[wallace1]

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

[Pol63]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 C# :

Sélectionner tout - Visualiser dans une fenêtre à part

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