envoyer un email ecrivé dans un text box

Question

comment faire un boutton quand je clique sur ce boutton il envoyer un email à l'adresse qui est dans un textbox avec le messagerie par defaut

Clonk · Answer

Il faut que tu utilise l'OCX Winsock
tu as pas mal de sources sur le site pour ça, il suffit d'utiliser le moteur de recherche.

BSide · Answer

Bonjour,

la question que tu as posée m'intéresse quoique je ne puisse malheureusement pas t'aider.
Pourras-tu me dire quelle solution tu as retenue quand tu auras résolu ton problème ?

Merci

NeoTheProgrammer · Answer

Voici un exemple de code qui pourra t'aider...

Il faut ajouter une reference dans ton projet : Microsoft Outlook x.0

Je l'ai essayé et ça marche tres bien... il faut que la messagerie soit ouverte...

  PDest = "Titi@titi.com"
  Pcopy = "Toto@toto.com"
  Psubject = "Envoie d'un mail avec VB..."
  PNoteText = "Bla bla bla..."
  PFile = ""

   'SendMessage(DisplayMsg As Boolean, PDest As String, Pcopy As String, Optional Psubject, Optional PNoteText, Optional AttachmentPath)

          Dim objOutlook As Outlook.Application
          Dim objOutlookMsg As Outlook.MailItem
          Dim objOutlookRecip As Outlook.Recipient
          Dim objOutlookAttach As Outlook.Attachment
 
          ' Create the Outlook session.
          Set objOutlook = CreateObject("Outlook.Application")
 
          ' Create the message.
          Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
 
          With objOutlookMsg
              ' Add the To recipient(s) to the message.
              Set objOutlookRecip = .Recipients.Add(PDest)
              objOutlookRecip.Type = olTo
 
              If Pcopy = "" Then
              Else
              ' Add the CC recipient(s) to the message.
              Set objOutlookRecip = .Recipients.Add(Pcopy)
              objOutlookRecip.Type = olCC
              End If
              
             ' Add the BCC recipient(s) to the message.
             ' Set objOutlookRecip = .Recipients.Add("MARECHAL")
             ' objOutlookRecip.Type = olBCC
 
             ' Set the Subject, Body, and Importance of the message.
             .Subject = "Emission Automatique : " & Psubject
             .Body = PNoteText
             .Importance = olImportanceHigh  'High importance
 
             ' Add attachments to the message.
             'If Not IsMissing(AttachmentPath) Then
             '    Set objOutlookAttach = .Attachments.Add(AttachmentPath)
             'End If
 
             ' Resolve each Recipient's name.
             For Each objOutlookRecip In .Recipients
                 objOutlookRecip.Resolve
             Next
             
             ' Should we display the message before sending?
             If DisplayMsg Then
                 .Display
             Else
                 .Send
             End If
          End With
          Set objOutlook = Nothing

copiercoder · Answer

j ai fait un ocx qui fait ca sous le pseudo azerty2002

Envoyer un email ecrivé dans un text box

4 réponses