Contenu d'un userform par mail Fermé

Question

Bonjour commentçamarche,

Voilà le topo, j'ai un userform avec un formulaire que les agents remplissent. Tout en bas de ce formulaire, je voudrais mettre un bouton "Besoin d'aide?". Lorsque les agents cliqueront sur ce bouton, un second userform apparaitra avec 2 champs. Le premier "Nom de l'agent" et le second "Expliquez votre problème" et un bouton "Envoyer". 

Ce que je voudrais, c'est que lorsque l'agent cliquera sur "Envoyer", ça m'envoie un mail avec comme sujet "Problème fichier excel xxx" et dans le corps de message

Nom de l'agent : xxxx
Problème : ........ 

Merci d'avance pour le temps que vous prendrez pour ma requête. 

Brandysve

melanie1324 · Answer

bonjour,

je suppose que agent = textbox1
problème = textbox2

Sub EnvoiMail()
 
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim corps As String
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.to = "Dest1@messagerie.com"
  MonMessage.Subject = "Problème fichier excel " & textbox1.value
    corps = "Bonjour ,"
    corps = corps & Chr(13) & Chr(10)
    corps = corps & "agent : " & userform2.textbox1.value & Chr(13) & Chr(10)
    corps = corps & "Problème : " & UserForm2.TextBox2.Value & Chr(13) & Chr(10)
    corps = corps  & Chr(13) & Chr(10)
    corps = corps & "Merci de votre aide."
  
  MonMessage.body = corps
  MonMessage.send
  Set MonOutlook = Nothing
End Sub

Polux31 · Answer

Bonjour,

Ne pas oublier de cocher la référence Microsoft Outlook Object Library.

Sub Send_Mail(Byval StrBody As String, Byval fExcel As String)
Dim olkApp As Outlook.Application
Dim olkMail As MailItem

Set olkApp = CreateObject("Outlook.Application")
Set olkMail = olApp.CreateItem(olMailItem)

With olkMail
       .To = ""
       .CC = ""
       .Subject = "Problème fichier excel " & fExcel
       .Body = StrBody
       .Display
    End With

Set olkMail = Nothing
     Set olkApp = Nothing
End Sub

Brandysve · Answer

J'ai oublié de préciser que nous n'utilisons malheureusement pas Outlook. Il s'agit de IBM Lotus iNotes 8.5.3 FP5

Brandysve · Answer

Après encore moultes recherche, il s'avère que je dois envoyer via un CDO mais n'ayant pas le SMTP de ma boite, c'est mort.

Encore merci ! o/

lermite222 · Answer

Bonjour,Bonjour Pijaku,
La procédure CDO ne fonctionne pas avec Lotus note.
J'ai un classeur exemple avec Lotus note mais.... non d'une pipe de non d'une pipe je parvient pas à le retrouver.
Je me souvient que je suis déjà intervenu sur un sujet similaire... peut-être qu'une recherche sur le forum ?
A+

Brandysve · Answer

J'avais déjà recherché, mais nous les solutions tournent autour de Lotus Note et nous c'est Lotus iNote (la version navigateur).

f894009 · Answer

Bonjour,

le site pour recuperer Mailsend plus infos ligne de commande

http://www.feldstudie.net/2010/09/28/mailsend-tool-zum-senden-von-mails-ueber-smtp-via-kommandozeile/

dans votre cas, vous devrez ecrire le fichier.bat avec la ligne de commande et les infos de l'UF que vous lancerez par une commande shell dans le VBA
ex:
Retval = Shell(Repertoire_Courrant & "\env_mess_FO.bat")

Par contre faire essai pour le domaine etc ....

A votre dispo pour la suite 

A+

Contenu d'un userform par mail

7 réponses

Discussions similaires