Discussion :

[vaucluseimmo]

Bonsoir le Forum

Dans le code ci-dessous, je désire remplacer le Nom de l'adresse mail
du code
et récupérer une adresse mail notée dans une textbox sur mon document

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub EnvoiMail()
Dim oApp As Outlook.Application
Dim MyIt As MailItem
'Dim myAtt As Attachment
Dim stTemp As String
Dim myRange As Range
Set myRange = ActiveDocument.Range
myRange.WholeStory
myRange.Select
stTemp = Selection.Text
 
Set oApp = CreateObject("outlook.application")
Set MyIt = oApp.CreateItem(olMailItem)
'Set myAtt = MyIt.Attachments.Add(ActiveDocument.FullName)

MyIt.To = "vaucluseimmo@wanadoo.fr"<<<<<ICI
MyIt.Subject = "Sujet de l'envoi"
MyIt.BodyFormat = olFormatHTML
MyIt.Body = stTemp
MyIt.Send
End Sub

Code :

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

1
2
3
Sub EnvoiDoc()
ActiveDocument.SendMail
End Sub

Bonne soirée
Cordialement

[Heureux-oli]

Salut,

Tu as deu xchoix, tu fais un transfert de la donnée contenue dans le TextBox dans une variable ou tu utilises directement la donnée.

Mais quel genre de textbox est-ce ?

[vaucluseimmo]

Bonjour Olivier

Merci de ta réponse

Mais ce que tu me conseil,je connais mais ne fonctionne pas
ou alors je m'y prends comme un ane
Ma TextBox1 (Boite a Outils Controles) est placée dans mon Document

Cordialement

[Heureux-oli]

Salut,

c'est pas l'envoi qui pose problème, mais la récupération de la donnée.

Essaie avec

Code :

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

Me.TextBox1.Value