Discussion :

[xingjing910]

Hello Daniel,

J'ai lu cette discussion.

D'abord merci pour ce code. j'ai essayé, ça fonctionne à moitié

Du coup, j'en profite pour poser quelques questions, stp ...

C'est juste plus simple avec XL2003 :

Code :

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

DossierSource = NS.Folders(1).Folders("Boîte de réception").Folders("essai")

- qu'est-ce que ça fait NS.Folders(1) ? La variable entre parenthèses c'est quoi ?

- Comment je peux extraire le contenu d'un mail pour mettre dans une cellule uniquement ? En fait, ce que je voudrais faire, c'est comme cela

Code :

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

.Columns(3).AutoFit

- Ce code, c'est pour ajouter automatiquement la colonne 3 ?

Code :

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

1
2
3
4
5
6
  For x = 0 To UBound(Split(i.Body, vbCrLf))
               Ligne = Ligne + 1
 
             .Cells(Ligne, colonne) = Split(i.Body, vbCrLf)(x)
 
            Next x

- J'ai essayé ce code, du coup, le problème est, quand il y a une tabulation, ça fait une ligne blanche

En tout cas, merci d'avance pour ton aide . Merci !

[Daniel.C]

Bonjour,

- qu'est-ce que ça fait NS.Folders(1) ? La variable entre parenthèses c'est quoi ?

J'ai plusieurs comptes dans Outlook. La variable est le numéro d'index de ces comptes mail.

- Comment je peux extraire le contenu d'un mail pour mettre dans une cellule uniquement ? En fait, ce que je voudrais faire, c'est comme cela

Si tu ouvres le mail dans une fenêtre, tu le récupères avec le code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Current_Item()
'récupère le destinataire du mail ouvert dans une fenêtre isolée
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
Set objitem = olApp.ActiveInspector.CurrentItem
For i = 1 To objitem.Recipients.Count
    Cells(i, 1) = objitem.Recipients(i)
Next i
End Sub

Est-ce que tu sauras adapter le code ? Sinon, dis-le.

Code :

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

.Columns(3).AutoFit

- Ce code, c'est pour ajouter automatiquement la colonne 3 ?

Non, c'est pour ajuster la largeur de la colonne automatiquement.

- Ce code, c'est pour ajouter automatiquement la colonne 3 ?

Code :

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

1
2
3
4
5
6
  For x = 0 To UBound(Split(i.Body, vbCrLf))
               Ligne = Ligne + 1
 
             .Cells(Ligne, colonne) = Split(i.Body, vbCrLf)(x)
 
            Next x

- J'ai essayé ce code, du coup, le problème est, quand il y a une tabulation, ça fait une ligne blanche

Il faudrait que tu postes un texte exemple avec le résultat que tu veux obtenir.