Aide en vb

Fermé
rachid - 16 sept. 2005 à 18:10
 Jacques - 17 sept. 2005 à 10:43
slt ts
svp qu'elle est la commande qu'on peux attribuer a un bouton pour qu'il envois un text directement a un email

par exemple un livre d'or je veux que qd le visiteur fini son text et clic sur le bouton le text s'envois directement a ma boite et merci bcp pour votre aide
A voir également:

1 réponse

Bonjour,

NB : J'ai vérifié, ça fonctionne avec Outlook 2000
Le plus difficile sera de l'adapter à votre programme

- 2 Procédures sont requises


1/2___
Private Sub ContactOutlook_Click()
'Ouvre un Contact Outlook pour cette assignation.

If Not IsNull(DestinéA) Then
OuvrirContactOutlook DestinéA.Column(1)
End If

End Sub
_________
2/2
Public Sub OuvrirContactOutlook(strFullName As String)
'Ouvre un contact Microsoft Outlook pour le nom spécifié.

Dim appOutlook As New Outlook.Application
Dim nsOutlook As NameSpace
Dim mfContacts As MAPIFolder
Dim ciContact As ContactItem

'Ouvre le dossier Contacts par défaut d'Outlook.
Set nsOutlook = appOutlook.GetNamespace("MAPI")
Set mfContacts = nsOutlook.GetDefaultFolder(olFolderContacts)

'Cherche le contact destinataire dans la colonne DestinéA.
Set ciContact = mfContacts.Items.Find("[FullName] = " & strFullName)

'Si le Destinataire n'existe pas, ajoute un nouveau Destinataire.
If ciContact Is Nothing Then
Set ciContact = mfContacts.Items.Add
ciContact.FullName = strFullName
End If
'Ouvre la fenêtre Contact d'Outlook.
ciContact.Display

End Sub
0