R
rem$
Guest
bonjour a tous,
je voudrais savoir comment faire pour recuperer la valeur d'un textbox afin de la mettre dans un 2eme USF ???
dans mon USF1 (qui me sert à saisir des infos) j'ai differrents textbox
en cas de pb je dois envoyer un mail pour prevenir alors j'ai cree un USF2 qui s'affiche quand je clic sur boutton mail mais pour gagner du temps j'aimerais reprendre certains elements du USF 1 pour les mettre dans USF2 et envoye par mail mais je n'y arrive pas....
je recapitule :
USF1 textbox1 = toto
USF2 textbox2= toto
de plus je sais afficher de façon direct les infos dans mon mail mais je n'arrive pas à mettre à la ligne les infos dans mon mail voici le code que j'utilise :
Private Sub commandbutton1_click()
Dim dest$, sujet$, texte$
Dim cell As Range
Application.ScreenUpdating = False
dest = ComboBox1
sujet = "FNC"
texte = (TextBox1) & Chr(13) & (TextBox4) & Chr(13) & (chekbox1) & Chr(13) & ("nature du pb :" & " " & TextBox2) & Chr(13) & ("commentaires :" & " " & TextBox3)
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & dest & "?subject=" & sujet & "&Body=" & texte
SendKeys "%s"
End Sub
malheureusement le chr(13) ne fonction que dans les msgbox alors quoi mettre à la place pour que le texte de mon mail retourne a la ligne??
Grand merci d'avance
@ bientôt
Rem$
je voudrais savoir comment faire pour recuperer la valeur d'un textbox afin de la mettre dans un 2eme USF ???
dans mon USF1 (qui me sert à saisir des infos) j'ai differrents textbox
en cas de pb je dois envoyer un mail pour prevenir alors j'ai cree un USF2 qui s'affiche quand je clic sur boutton mail mais pour gagner du temps j'aimerais reprendre certains elements du USF 1 pour les mettre dans USF2 et envoye par mail mais je n'y arrive pas....
je recapitule :
USF1 textbox1 = toto
USF2 textbox2= toto
de plus je sais afficher de façon direct les infos dans mon mail mais je n'arrive pas à mettre à la ligne les infos dans mon mail voici le code que j'utilise :
Private Sub commandbutton1_click()
Dim dest$, sujet$, texte$
Dim cell As Range
Application.ScreenUpdating = False
dest = ComboBox1
sujet = "FNC"
texte = (TextBox1) & Chr(13) & (TextBox4) & Chr(13) & (chekbox1) & Chr(13) & ("nature du pb :" & " " & TextBox2) & Chr(13) & ("commentaires :" & " " & TextBox3)
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & dest & "?subject=" & sujet & "&Body=" & texte
SendKeys "%s"
End Sub
malheureusement le chr(13) ne fonction que dans les msgbox alors quoi mettre à la place pour que le texte de mon mail retourne a la ligne??
Grand merci d'avance
@ bientôt
Rem$