A voir également:
- [VBA EXCEL]Piece jointe outlook & textbox
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Pièce d'identité - Accueil - Services publics
- 1 pièce jointe - Guide
- Déplacer colonne excel - Guide
12 réponses
re:
La propriété [ .Value ] n'existe pas pour un "textbox"
il faut utiliser la propriété [ .Text ].
Lupin
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
Bonjour,
la syntaxe serait :
.AddAttachment (TextBox1.Text)
Le TextBox1 doit être connu de la procédure !
Lupin
la syntaxe serait :
.AddAttachment (TextBox1.Text)
Le TextBox1 doit être connu de la procédure !
Lupin
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Exemple type :
Lupin
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
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 !
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 !
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
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
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!
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!
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
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