[VB/access] Envoi de mail en VB

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB/access] Envoi de mail en VB

thekingsky

BOnjour à tous

Je cherche à envoyer un mail en cliquand sur un bouton dans un formulaire access.
Existe t'il une commande VB pour envoyer un mail du genre mailto en HTML ?

merci

Publicité

jpcheck

Pioupiou

tu peux gérer ca avec un hyperlink (avec .adress avec mailto)

thekingsky

Heu j'ai trouvé une fonction :

DoCmd.SendObject

Ca marche nikel, il m'ouvre bien un mail avec le bon déstinataire mais quand je n'envoi pas le mail ca plante !

thekingsky

Il me met une erreur 2501 dès que je ferme le mail sans l'envoyer !
Si j'envoi il plante pas !

thekingsky

Bon et bien voilà

Voici le code pour envoyer un mail au format HTML :

Code :

Dim Mail As String
If IsNull(Me.CON_MAIL) Or Me.CON_MAIL = "" Then
MsgBox ("Il faut spécifier une adresse mail avant de pouvoir envoyer un mail" )
Else
Mail = Me.CON_MAIL
Dim olApp As Outlook.Application
Dim objMail As MailItem
Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
With objMail
.BodyFormat = olFormatHTML
.To = Mail
.Display
End With
End If

@+ pour de nouvelle aventure :bounce:

jpcheck

Pioupiou

attention, ton code marche seulement avec outlook (logique) mais pense à ceux qui l'ont (précautionneusement) enlevé de leur machine ^^

thekingsky

Heuuuu ...

Ils ont tous outlook dans la boite

jpcheck

Pioupiou

oki :jap:

kiki29

et si désactivation des messages d'alerte lors de l'envoi d'un mail
ClickYes http://www.excelguru.ca/node/44
Redemption http://www.dimastr.com/redemption/

thekingsky

j'ai essayé de désactiver les messages d'alert mais c'est carément un plantage et non un message d'erreur!

Mais c'est bon j'y suis arrivé merci

Publicité

Willoo2003

[quotemsg=1590936,5,50004]Bon et bien voilà

Voici le code pour envoyer un mail au format HTML :

Code :

Dim Mail As String
If IsNull(Me.CON_MAIL) Or Me.CON_MAIL = "" Then
MsgBox ("Il faut spécifier une adresse mail avant de pouvoir envoyer un mail" )
Else
Mail = Me.CON_MAIL
Dim olApp As Outlook.Application
Dim objMail As MailItem
Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
With objMail
.BodyFormat = olFormatHTML
.To = Mail
.Display
End With
End If

Bonjour, J'ai le même souci avec access 2003, j'ai essayé d'adapter ce code sans succès.
J'ai un champ nommé [EnvoiMail] et je souhaitais juste grâce à un double clic ouvrir le prog de mail par défaut du poste utilisé et obtenir l'équivalent du mailto en HTML en utilisant comme destinataire le contenu du champ dans lequel j'effectue le double clic, et accesoirement une valeur fixe pour le CCI du genre 'copiesauvegardemail@monsite.com'

Merci si vous pouvez m'apporter une réponse.

J'ai essayé également de manipuler la commande DoCmd.SendObject qui a priori serait peut-être aussi la solution, mais peut-être j'ai mal écrit ma commande car je plante.

tegu

mailto: n'est pas du html mais un protocole.
Donc, il suffit d'utiliser l'API ShellExecute pour lancer un lien mailto et ouvrir par la même occasion la messagerie paramétrée par défaut avec quelques champs renseignés.
Ce protocole reste cependant limité aux champs les plus courants.

Déclaration de l'API

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Lancement de la messagerie avec préremplissage de certains champs

ShellExecute 0, "Open", "mailto:toto@bidule.org?subject=Sujet%20du%20courrier&cc=tata@truc.org&bcc=titi@chouette.org&body=Salut", 0, ".", vbNormalFocus

Willoo2003

Merci beaucoup tegu, je vais essayer d'adapter ceci sur un champ access 2003 sur lequel par double clic je génère la fenêtre d'envoi du programme de mail par défaut, utilisant le contenu du champ comme valeur du destinataire.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB/access] Envoi de mail en VB

Sujets relatifs
Cherche hebergeur payant capacité mail illimité	[Access] Acceder à un champ à partir du formulaire précédent
[VB Access]Recuperer les controls générés par access?	[Résolu par voie détournée] Piloter des contraintes d'intégrité
Traduire des actions sous Access en VB	[ASP.NET][Résolu] Problème envoi de mails
Enregistrer + afficher + envoi email	[Access] Changer la source d'un formulaire en VB
copier un ficher a un endroit précis, l'ouvrir depuis access	[ACCESS] navigation de formulaire à formulaire... need help!
Plus de sujets relatifs à : [VB/access] Envoi de mail en VB

Page générée en 0.045 secondes