Problème pour envoyer un mail en VB6 via lotus notes

Question

Bonjour

je fais une petite application sur VB6. Et j'ai un formulaire où j'ai plusieur textbox pour pouvoir envoyer un mail ( sujet.text, destinataire.text, piecejointe.text...). Et un bouton "ENVOYER" qui envoie le mail
a partir de ce que j'ai marqué dans mes textbox via lotus notes.

J'ai trouvé sur internet cette procédure pour envoyé un mail via lotus notes avec VB6.

Public Sub SendNotesMail(ByVal Subject As String, ByVal Attachment As String, _
                         ByVal Recipient As String, ByVal ccRecipient As String, _
                         ByVal bccRecipient As String, ByVal BodyText As String, _
                         ByVal SaveIt As Boolean, ByVal Password As String)
                         
    Dim Maildb As Object      'La base des mails
    Dim UserName As String    'Le nom d'utilisateur
    Dim MailDbName As String  'Le nom de la base des mails
    Dim MailDoc As Object     'Le mail
    Dim AttachME As Object    'L'objet pièce jointe en RTF
    Dim Session As Object     'La session Notes
    Dim EmbedObj As Object    'L'objet incorporé
   
    'Crée une session notes
    Set Session = CreateObject("Notes.NotesSession")
   
    '*** Cette ligne est réservée aux versions 5.x et supérieur : ***
    Session.Initialize (Password)
   
    'Récupère le nom d'utilisateur et crée le nom de la base des mails
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
   
    'Ouvre la base des mails
    Set Maildb = Session.GETDATABASE("", MailDbName)
    If Not Maildb.IsOpen Then Maildb.OPENMAIL
       
    'Paramètre le mail à envoyer
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.CopyTo = ccRecipient
    MailDoc.BlindCopyTo = bccRecipient
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt
   
    'Prend en compte les pièces jointes
    If Attachment <> "" Then
        Set AttachME = MailDoc.CreateRichTextItem("Attachment")
        Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment")
        MailDoc.CreateRichTextItem ("Attachment")
    End If
   
    'Envoie le mail
    MailDoc.PostedDate = Now()
    MailDoc.SEND 0, Recipient
   
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub

Le problème c'est que je débute sur VB6. Et je ne sais pas comment utilisé cette procédure .
J'ai pensé a ca

Private Sub ENVOYER_Click()
Call SendNotesMail(sujet.Text, Text2.Text, Text8.Text, , , Text1.Text, False, Text14.Text)
End Sub

mais il marque un message d'erreur "Cette argument n'est pas facultatif" et il me surligne en jaune Call SendNotesMail(sujet.Text, Text2.Text, Text8.Text, , , Text1.Text, False, Text14.Text)

La je bloque complétement je sais pas du tout comment faire j'ai vraiment vraiment vraiment vraiment besoin de votre aide

p62p · Answer

Bonjour

Je relance ma demande, il y a vraiment personne qui peut m'aider ou m'indiquer une autre démarche ou autre chose ?????????

Problème pour envoyer un mail en VB6 via lotus notes

1 réponse

Votre réponse

Discussions similaires