ENVOI MAIL VB 2005 API WINDOWS
Hackman informaticien
Messages postés
13
Date d'inscription
jeudi 7 décembre 2006
Statut
Membre
Dernière intervention
12 mars 2008
-
12 mars 2008 à 20:33
renocmoa Messages postés 134 Date d'inscription mardi 7 septembre 2004 Statut Membre Dernière intervention 10 mai 2012 - 12 déc. 2009 à 10:39
renocmoa Messages postés 134 Date d'inscription mardi 7 septembre 2004 Statut Membre Dernière intervention 10 mai 2012 - 12 déc. 2009 à 10:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/45355-envoi-mail-vb-2005-api-windows
https://codes-sources.commentcamarche.net/source/45355-envoi-mail-vb-2005-api-windows
12 déc. 2009 à 10:39
http://www.codeproject.com/KB/IP/SendFileToNET.aspx
12 déc. 2009 à 10:32
Et pour envoyer de la même façon plusieurs fichiers ?
Merci
1 déc. 2009 à 18:06
j'avais juste un soucis de clef registre curent user = Win Live Mail et Local Machine=Outlook ???
Mais là nickel
Merci
1 déc. 2009 à 17:29
1 déc. 2009 à 17:15
Pour le premier code c'est en effet une piste mais je voudrais ouvrir le mail et non pas l'envoyer directement.
Mes utilisatreurs doivent pouvoir envoyer par mail des documents (clic sur un bouton) mais le texte du message change à chaque fois et le mail doit se trouver dans la boite d'envoi...
1 déc. 2009 à 17:08
1 déc. 2009 à 16:35
Je voudrais juste ouvrir un mail avec le client par defaut, je pensais faire un fichier .eml puis procces.start mais comment générer un .eml ?
1 déc. 2009 à 14:30
La première source fonctionne avec Windows Mail sans MAPI
1 déc. 2009 à 14:09
Un peu tard peut être pour intervenir, mais on sait jamais... En effet beaucoup de pb avec MSMAPI d'un poste à l'autre...
Alors comment faire pour ouvrir un mail avec le client par défaut et avec une piéce jointe ?? Ca parait simple comme ça
Si quelqu'un à une idée (même avec dll payante !!)
Merci
29 déc. 2008 à 14:54
normal que tu n'ais pas trouvé
cet OCX est délivrée avec VB
de plus, elle est soumise à un control de licence
de ce fait, même si elle marche sur un PC de dev, il y a de fortes chances (déjà testé) qu'elle ne soit pas sur d'autres PC, sauf à l'installer.
Comme tu as pu le constater, elle ne fait pas partie de l'OS
cdt,
11 mai 2008 à 19:08
j'utilise Windows Live Mail avec un compte Hotmail
et ça fonctionne pas ou alors c'est moi qui n'ai pas compris
et pour la seconde solution que tu proposes
activeX Microsoft MAPI Controls 6.0
j'ai pas trouvé sur ma bécane
13 mars 2008 à 08:45
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
12 mars 2008 à 20:33
je suis débutant en vb.net. comment fait on pour utilisé la classe
je sais c'est pathétique d'être si nul...
merci d'avance