AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 12 06:22:34
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

3 commentaire(s) de PHILIPPO sur des sources sur tout CodeS-SourceS

Le : 13/03/2008 08:45:53
Source : ENVOI MAIL VB 2005 API WINDOWS
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

Le : 09/01/2008 09:29:06
Source : CONVERSION DE COULEUR RGB VB6 EN COULEUR ARGB .NET
Merci pour tes conseils Charles

Le : 05/09/2006 14:09:15
Source : MODIFICATION DE LA TAILLE D'UN OBJET DE TYPE BITMAP. BESOIN D'AIDE POUR FINIR
salut por redimensionner ton image tu peu utiliser
bm=bm.GetThumbnailImage(nouvellelargeur,nouvellehauteur,nothing,nothing)

@++

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Console Nintendo DSi Blanche
Entre 160€ et 170€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo plage de nudistes
Photo Cockpit Airbus A320 Photo white dove in flight 1

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,047 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.