Probleme de piece jointe
Résolu
xounay
Messages postés
320
Date d'inscription
lundi 14 novembre 2005
Statut
Membre
Dernière intervention
27 avril 2012
-
25 juil. 2008 à 16:06
xounay Messages postés 320 Date d'inscription lundi 14 novembre 2005 Statut Membre Dernière intervention 27 avril 2012 - 30 juil. 2008 à 10:42
xounay Messages postés 320 Date d'inscription lundi 14 novembre 2005 Statut Membre Dernière intervention 27 avril 2012 - 30 juil. 2008 à 10:42
A voir également:
- Probleme de piece jointe
- Comment renommer une piece ✓ - Forum Delphi / Pascal
- Calculer la surface d'une pièce non rectangulaire ✓ - Forum Visual Basic 6
- Macro envoyer mail avec piece jointe - Forum Visual Basic
- Pdf endommagé pièce jointe - Forum Java
- Python envoyer mail avec pièce jointe ✓ - Forum PHP
2 réponses
gillardg
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
2
25 juil. 2008 à 16:45
25 juil. 2008 à 16:45
Dim
arlAttachments
As
ArrayList
Private
Sub
btnAttach_Click(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
btnAttach.Click
Dim
odlgAttachment
As
New
OpenFileDialog
With
odlgAttachment.InitialDirectory =
"C:"
.Filter =
"All Files (*.*)|*.*|HTML Files (*.htm;*.html)|*.htm|Microsoft Mail Documents (*.msg)|*.msg|Word Documents (*.doc)|*.doc|Excel Files(*.xl*)|*.xl*|Excel Worksheets (*.xls)|*.xls|Excel Charts (*.xlc)|*.xlc|PowerPoint Presentations (*.ppt)|*.ppt|Text Files (*.txt)|*.txt"
.FilterIndex = 1
' The OpenFileDialog control only has an Open button, not an OK button.
' However, there is no DialogResult.Open enum so use DialogResult.OK.
If
.ShowDialog() = Windows.Forms.DialogResult.OK
Then
If
IsNothing(arlAttachments)
Then
arlAttachments =
New
ArrayList()
' Clear the "(No Attachments)" default text in the ListView
Attachments.Items.Clear()
End
If
arlAttachments.Add(
New
Attachment(.FileName))
' You only want to show the file name. The OpenFileDialog.FileName
' property contains the full path. So Split the path and reverse it
' to grab the first string in the array, which is just the FileName.
Dim
strFileName()
As
String
= .FileName.Split(
New
Char
() {
CChar
(
""
)})System.Array.Reverse(strFileName)
Attachments.Items.Add(strFileName(0))
End
If
End
With
End
Sub
Il n'y a que les gens qui ne font rien, qui ne font pas d'erreur
/B>
arlAttachments
As
ArrayList
Private
Sub
btnAttach_Click(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
btnAttach.Click
Dim
odlgAttachment
As
New
OpenFileDialog
With
odlgAttachment.InitialDirectory =
"C:"
.Filter =
"All Files (*.*)|*.*|HTML Files (*.htm;*.html)|*.htm|Microsoft Mail Documents (*.msg)|*.msg|Word Documents (*.doc)|*.doc|Excel Files(*.xl*)|*.xl*|Excel Worksheets (*.xls)|*.xls|Excel Charts (*.xlc)|*.xlc|PowerPoint Presentations (*.ppt)|*.ppt|Text Files (*.txt)|*.txt"
.FilterIndex = 1
' The OpenFileDialog control only has an Open button, not an OK button.
' However, there is no DialogResult.Open enum so use DialogResult.OK.
If
.ShowDialog() = Windows.Forms.DialogResult.OK
Then
If
IsNothing(arlAttachments)
Then
arlAttachments =
New
ArrayList()
' Clear the "(No Attachments)" default text in the ListView
Attachments.Items.Clear()
End
If
arlAttachments.Add(
New
Attachment(.FileName))
' You only want to show the file name. The OpenFileDialog.FileName
' property contains the full path. So Split the path and reverse it
' to grab the first string in the array, which is just the FileName.
Dim
strFileName()
As
String
= .FileName.Split(
New
Char
() {
CChar
(
""
)})System.Array.Reverse(strFileName)
Attachments.Items.Add(strFileName(0))
End
If
End
With
End
Sub
Il n'y a que les gens qui ne font rien, qui ne font pas d'erreur
/B>
xounay
Messages postés
320
Date d'inscription
lundi 14 novembre 2005
Statut
Membre
Dernière intervention
27 avril 2012
30 juil. 2008 à 10:42
30 juil. 2008 à 10:42
Merci pour ta réponse quand même.
J'avais trouvé une liste de format de type de fichier entre temp.
Mais même avec le format que outlook utilise ca ne marche pas...
Les dévelopeur on du coder leur application à la rache :p
Avec les lib office et un composant outlook ca marche tout seul...
Par consequence je suppose qu'ils se sont servis des lib office aussi.
Bonne fin de journée
J'avais trouvé une liste de format de type de fichier entre temp.
Mais même avec le format que outlook utilise ca ne marche pas...
Les dévelopeur on du coder leur application à la rache :p
Avec les lib office et un composant outlook ca marche tout seul...
Par consequence je suppose qu'ils se sont servis des lib office aussi.
Bonne fin de journée