dans le premier code j'ai mis l'option Directsend as false qui ouvre la fenêtre avec la pièce jointe pour modifier le message avant de l'envoyer si true envoi direct...

J'ai cherché un moment la solution simple pour envoyer un mail avec attachement par le client par défaut mais je n'ai pas trouvé si tu trouve ce serait sympa de me le poster ce que j'ai compris c'est qu'il faut utiliser la ddl de référence inscrite dans le client mail par défaut qui doivent toutes avoir la fonction BMAPISendMail mais bon le code du dessus est loin d'être parfait...

Effectivement je me suis apperçu du problème de l'ocx MAPI ensuite.
La première source fonctionne avec Windows Mail sans MAPI

Salut sinon il y a plus simple si tu débute cette classe permet de ne pas inscrire les composant Mapi à ton projet sinon tu peu utiliser le controle activeX Microsoft MAPI Controls 6.0 à tes références et faire une fonction

    Shared Function SendMail(ByVal MailTo As String, ByVal Subject As String, Optional ByVal Body As String = Nothing, Optional ByVal Attachments() As String = Nothing, Optional ByVal DirectSend As Boolean = False) As Boolean
        Cursor.Current = Cursors.WaitCursor
        Dim m As New MSMAPI.MAPIMessages
        Dim s As New MSMAPI.MAPISession
        s.SignOn()
        m.SessionID = s.SessionID
        m.Compose()
        m.MsgIndex = -1
        If MailTo = Nothing Then
            Try
                m.Show()
            Catch ex As Exception
                Cursor.Current = Cursors.Default
                PolyMessage(ex.Message)
                s.SignOff()
                Return False
            End Try

            If m.RecipAddress = Nothing Then m.RecipAddress = m.RecipDisplayName
        Else
            m.RecipAddress = MailTo
            m.RecipDisplayName = MailTo
        End If
        m.MsgSubject = Subject
        If m.MsgSubject = Nothing Then
            m.MsgSubject = "Mail"
        End If
        m.MsgNoteText = Body
        If m.MsgNoteText = Nothing Then
            m.MsgNoteText = "Mail"
        End If

        Dim d As Integer
        For d = 0 To Attachments.Length - 1
            m.AttachmentIndex = d
            m.AttachmentPathName = Attachments(d)
        Next

        Try
            If DirectSend Then
                m.Send()
            Else
                m.Send(True)
            End If
        Catch ex As Exception
            Cursor.Current = Cursors.Default
            PolyMessage(ex.Message)
            s.SignOff()
            Return False
        End Try
        s.SignOff()
        Return True
        Cursor.Current = Cursors.Default
    End Function

Merci pour tes conseils Charles

salut por redimensionner ton image tu peu utiliser
bm=bm.GetThumbnailImage(nouvellelargeur,nouvellehauteur,nothing,nothing)

@++