High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

[VBA EXCEL]Piece jointe outlook & textbox

Dernière réponse le 28 mai 2009 à 09:41:24 invite05, le 21 avr 2009 à 14:35:25 
 Signaler ce message aux modérateurs

Bonjour,

J'ai un bouton1 qui lorsque je clique dessus me prépare un e-mail. Je souhaiterai que la macro ci-dessous fasse en sorte d'intégré le fichier dont le chemin est donné dans le Textbox1.
J'avais pensé à quelque chose dans ce style : .attachments.add = textbox1.value ou .attachments.add ="sheets("feuil1").range("A1")(la valeur du textbox est recopier dans une feuille de calcul) mais ca ne marche pas. Quelqu'un aurait une idée?

Public Sub envoyer_email()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String

Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = ("toto")
.Subject = ("Bonjour")
.Body = "Demande à traiter :" & Range("a1") & Chr(10) & Range("a3") & Chr(10) & Range("a4") & Chr(10) & Range("a5") & Chr(10) & Range("a6") & Chr(10) & Range("a7") & Chr(10) & Range("a8").Value
.attachments.add = ???
.Display '
End With
End Sub


Merci !

Meilleures réponses pour « [VBA EXCEL]Piece jointe outlook & textbox » dans :
Débloquer une pièce jointe dans outlook (Résolu) Voir
Comment récupérer une pièce-jointe? (Outlook) Voir
Outlook Express bloque les pièces jointes Voir Lors de la consultation d'un email, Outlook (Express) refuse d'ouvrir les fichiers attachés. Il s'agit vraisemblablement d'un problème de configuration de Outlook évitant l'ouverture des pièces jointes pour des raisons de sécurité. Pour y...
[Outlook Express] Pièces jointes impossibles à envoyer VoirSi Outlook Express ne peut pas envoyer les pièces jointes ajoutées à votre mail, ceci est probablement dû au fait qu'elles possèdent une taille trop volumineuse. Pour y remédier, la solution consiste à scinder les pièces jointes en plusieurs...
Envoyer de gros fichiers (pièces jointes) par mail VoirLes systèmes de messagerie bloquent généralement les pièces jointes volumineuses, alors comment faire parvenir un fichier lourd (de plusieurs Mo) à son destinataire ? La solution consiste à utiliser un service d'hébergement temporaire de fichiers...
Posez votre question Répondre

1

invite05, le 22 avr 2009 à 10:35:04

Up !

   
Répondre à invite05

2

invite05, le 24 avr 2009 à 13:20:26

Up

   
Répondre à invite05

3

Lupin.A, le 24 avr 2009 à 13:26:38

Bonjour,

la syntaxe serait :

.AddAttachment (TextBox1.Text)

Le TextBox1 doit être connu de la procédure !

Lupin
~L'essentiel est invisible pour les yeux~
  ~On ne voit bien qu'avec le coeur~

   
Répondre à Lupin.A

4

invite05, le 13 mai 2009 à 15:45:07
  • +1

Je souhaiterai utiliser la boite de dialog GetOpenFile et renvoyer le nom du fichier selectionner dans un textbox :
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String

'Affiche la boîte de dialogue "Ouvrir"
Chemin = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")

'On sort si aucun fichier n'aété sélectionné ou si l'utilisateur
'a cliqué sur le bouton "Annu ler", ou sur la croix de fermeture.

On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path

UserForm1.TextBox1 = oFolderItem.Path
End Sub


puis un bouton "envoi mail" et intégrer en pièce jointe le fichier dont le chemin est renvoyé dans le textbox.
.AddAttachment (TextBox1.Text)

Ca ne marche pas merci de m'aider

   
Répondre à invite05

5

invite05, le 14 mai 2009 à 10:27:47

Up !

   
Répondre à invite05

6

Lupin.A, le 15 mai 2009 à 12:47:16

Bonjour,

Exemple type : 

Option Explicit

Sub Ouverture()

    Dim Chemin As Variant

    'Affiche la boîte de dialogue "Ouvrir"
    Chemin = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")

    'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
    'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.

    If (Chemin <> "") Then
        If (InStr(1, Chemin, "\", vbTextCompare) > 0) Then
            UserForm1.TextBox1 = Chemin
        End If
    End If

End Sub
'


Lupin
~L'essentiel est invisible pour les yeux~
  ~On ne voit bien qu'avec le coeur~

   
Répondre à Lupin.A

7

invite05, le 15 mai 2009 à 14:03:15

Super ca marche !Merci Lupin !

Maintenant j'ai un bouton "envoi mail" et je voudrai intégrer en pièce jointe le fichier dont le chemin est renvoyé dans le textbox.
Quelque chose dans ce style dans un module "envoi Email"
.AddAttachment (TextBox1.Text)

Encore merci !

   
Répondre à invite05

8

Lupin.A, le 15 mai 2009 à 17:46:47

Re:

Il y a une question je crois ?

Ici : http://www.commentcamarche.net/forum/affich 953055 envoie d email avec vb

Message 51

Tu trouveras un exemple complet avec OutlookExpress que j'ai codé, j'ai adapté ce
code en VBS, en VBA et en VB6, pour inclure un fichier texte en pièce jointe ou incorporer
dans le corps du message.

Lupin
~L'essentiel est invisible pour les yeux~
  ~On ne voit bien qu'avec le coeur~

   
Répondre à Lupin.A

9

Invite05, le 20 mai 2009 à 11:53:36

Lupin j'ai tenté de m'aider de ton message mais je rencontre un problème.
Ma macro d'envoi d'email est un module, j'ai 3 userforms avec dans chaque des textbox qui sont en liaisons avec un macro : GetOpenfile qui récupère le chemin d'un fichier.

Voici mon module d'envoi d'email :

Public Sub envoyer_email()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As Object

Dim Pj As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
Pj = Useform1.textbox1.value ???
With olmail
.To = ("svpagf")
.Subject = ("Demande à traiter")
.Body = "Demande à traiter :" & Range("a1") & Chr(10) & Range("a3")
.Display '.Send
objMail.AddAttachment (Pj)

End With
End Sub

Je pense pas que ce soit ça, si tu peux m'aider, il reste seulement ça à faire !
merci!

   
Répondre à Invite05

10

Invite05, le 20 mai 2009 à 14:25:51

Je suis sur Excel 2000

   
Répondre à Invite05

11

Lupin.A, le 21 mai 2009 à 03:15:01
  • +1

Re:

La propriété [ .Value ] n'existe pas pour un "textbox"

il faut utiliser la propriété [ .Text ]. 

If (Len(Useform1.textbox1.Text ) > 0) Then
    Pj = Useform1.textbox1.Text 
End If


Lupin ~L'essentiel est invisible pour les yeux~
  ~On ne voit bien qu'avec le coeur~

   
Répondre à Lupin.A

12

Invite05, le 22 mai 2009 à 09:40:33

Super ca marche !!! Merci Lupin !
Voici le code :

Public Sub envoyer_email()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Dim Pj As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)


With olmail
.To = ("")
.Subject = ("")
.Body = ""
.Display
If (Len(Useform1.textbox1.Text) > 0) Then
Pj = Useform1.textbox1.Text
.Attachments.Add (Pj)
End If

End With
End Sub

   
Répondre à Invite05

13

Invite05, le 22 mai 2009 à 09:45:08

Dernière question si j'ai 30 autres user forms comment faire pour donner l'instruction au module d'aller chercher le textbox1 contenant le chemin de la PJ dans tous les autres useforms?
For each ?
Merci !

   
Répondre à Invite05

14

 Invite05, le 28 mai 2009 à 09:41:24

UP ! Quelqu'un pourrait répondre à ma dernière questiion svp ?
Merci !

   
Répondre à Invite05
Posez votre question Répondre
Ils ont besoin de votre aide