Nom piece jointe outlook
fenlabize
Messages postés
7
Date d'inscription
jeudi 17 mars 2005
Statut
Membre
Dernière intervention
14 février 2006
-
31 mars 2005 à 21:26
Bubar92Bubar92 Messages postés 51 Date d'inscription mercredi 24 novembre 2004 Statut Membre Dernière intervention 23 août 2005 - 12 avril 2005 à 20:23
Bubar92Bubar92 Messages postés 51 Date d'inscription mercredi 24 novembre 2004 Statut Membre Dernière intervention 23 août 2005 - 12 avril 2005 à 20:23
4 réponses
Bubar92Bubar92
Messages postés
51
Date d'inscription
mercredi 24 novembre 2004
Statut
Membre
Dernière intervention
23 août 2005
3 avril 2005 à 21:22
3 avril 2005 à 21:22
<TD id=HB_Focus_Element vAlign=top width=\"100%\" background=\"\" height=250 body UNSELECTAB<> MAPISession1.SignOn
With MAPIMessages1
.MsgIndex = -1
.RecipAddress = AdressEnvoie.List(adressX) ' ici l adresse e-mail du destinataire
.MsgSubject = TxtSujet.Text ' ici le sujet du mail\"
.MsgNoteText = Corps.Text ' ici le message du mail
For i = 0 To LsPièceJointe.ListCount - 1
.AttachmentIndex = i 'le numéro d'index correspond au nombre supplémentaire de pièces jointes
.AttachmentPathName = LsPièceJointe.List(i) 'ici la pièce jointe supplémentaire
Next i
.SessionID = MAPISession1.SessionID
.Send 'Envoie un message.
End With
NbMailEnvoie = NbMailEnvoie + 1
MAPISession1.SignOff
C.V
With MAPIMessages1
.MsgIndex = -1
.RecipAddress = AdressEnvoie.List(adressX) ' ici l adresse e-mail du destinataire
.MsgSubject = TxtSujet.Text ' ici le sujet du mail\"
.MsgNoteText = Corps.Text ' ici le message du mail
For i = 0 To LsPièceJointe.ListCount - 1
.AttachmentIndex = i 'le numéro d'index correspond au nombre supplémentaire de pièces jointes
.AttachmentPathName = LsPièceJointe.List(i) 'ici la pièce jointe supplémentaire
Next i
.SessionID = MAPISession1.SessionID
.Send 'Envoie un message.
End With
NbMailEnvoie = NbMailEnvoie + 1
MAPISession1.SignOff
C.V
Bubar92Bubar92
Messages postés
51
Date d'inscription
mercredi 24 novembre 2004
Statut
Membre
Dernière intervention
23 août 2005
3 avril 2005 à 21:47
3 avril 2005 à 21:47
Private Sub LsPièceJointe_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
erreur = "erreur OLEDragDrop": On Error GoTo finLsPièceJointe
Dim fichier As Variant
For Each fichier In Data.Files
LsPièceJointe.AddItem fichier 'liste pour piece jouinte
NextIf LsPièceJointe.ListCount > 1 Then sp "s" Else sp ""
LsPièceJointe.Text = LsPièceJointe.ListCount & " Pièce" & sp & " jointe" & sp
Exit Sub
finLsPièceJointe: Call SpGestionErreur(erreur)
End Sub
LsPièceJointe = ComboBox
prendre le fichier avec explorateur de win
puis le deplacer sur
<TABLE id=HB_Mail_Container height="100%" cellSpacing=0 cellPadding=0 width="100%" border=0 UNSELECTABLE="on">
----, LsPièceJointe = ComboBox
cv</TD>
C.V
</TR></TBODY></TABLE>
erreur = "erreur OLEDragDrop": On Error GoTo finLsPièceJointe
Dim fichier As Variant
For Each fichier In Data.Files
LsPièceJointe.AddItem fichier 'liste pour piece jouinte
NextIf LsPièceJointe.ListCount > 1 Then sp "s" Else sp ""
LsPièceJointe.Text = LsPièceJointe.ListCount & " Pièce" & sp & " jointe" & sp
Exit Sub
finLsPièceJointe: Call SpGestionErreur(erreur)
End Sub
LsPièceJointe = ComboBox
prendre le fichier avec explorateur de win
puis le deplacer sur
<TABLE id=HB_Mail_Container height="100%" cellSpacing=0 cellPadding=0 width="100%" border=0 UNSELECTABLE="on">
----, LsPièceJointe = ComboBox
cv</TD>
C.V
</TR></TBODY></TABLE>
fenlabize
Messages postés
7
Date d'inscription
jeudi 17 mars 2005
Statut
Membre
Dernière intervention
14 février 2006
5 avril 2005 à 19:40
5 avril 2005 à 19:40
Salut,
Merci pour le code mais je n'arrive pas à l'utiliser. Je l'ai mis
dans l'editeur macro de outlook mais je n' arrive à le lancer. Merci
pour votre aide supplémentaire
Merci pour le code mais je n'arrive pas à l'utiliser. Je l'ai mis
dans l'editeur macro de outlook mais je n' arrive à le lancer. Merci
pour votre aide supplémentaire
Bubar92Bubar92
Messages postés
51
Date d'inscription
mercredi 24 novembre 2004
Statut
Membre
Dernière intervention
23 août 2005
12 avril 2005 à 20:23
12 avril 2005 à 20:23
c'est du code pour visual basic v6
si tu veux mon fichier exe ?
pour voir
si ca te plaid
je peux envoyer l'original ?
et tu pourra le redifuser si tu veux
le fichier exe je sai pas comment le donner
C.V
<TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 UNSELECTAB< body>
si tu veux mon fichier exe ?
pour voir
si ca te plaid
je peux envoyer l'original ?
et tu pourra le redifuser si tu veux
le fichier exe je sai pas comment le donner
C.V
<TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 UNSELECTAB< body>