Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour MAGALIE.
tu trouveras un exemple d'envoi de message sur : http://access.seneque.free.fr/envoi_message.htm
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"MAGALIE" a écrit dans le message de news:09ea01c3bb10$8f8477c0$ bonjour,
je ne comprends pas ca marche sur certain poste et pas d'autres...
Sur certains postes je dois d'abord ouvrir outlook pour que ca marche. Sinon j'ai l'erreur suivante :
"Erreur d'application -1247287008 (80030020) Echec de l'application"
Je fais des relances OUTLOOK via ACCESS
Set monmail = CreateObject ("outlook.application").createitem(olmailitem) monadresse = Me.EMAIL
montexte With monmail .to = monadresse .subject = "Relance factures non rendues" .body = "Bonjour," & vbCrLf & vbCrLf & "Je n'ai toujours pas reçu " & "la facture suivante :" & vbCrLf + "Fournisseur : " & Me.NOMFOURN & " facture n° " & Me.NUMFACT & vbCrLf & vbCrLf & "Merci de faire le nécessaire rapidement." .display End With
Bonjour MAGALIE.
tu trouveras un exemple d'envoi de message sur :
http://access.seneque.free.fr/envoi_message.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"MAGALIE" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:09ea01c3bb10$8f8477c0$a401280a@phx.gbl...
bonjour,
je ne comprends pas ca marche sur certain poste et pas
d'autres...
Sur certains postes je dois d'abord ouvrir outlook pour
que ca marche. Sinon j'ai l'erreur suivante :
"Erreur d'application -1247287008 (80030020)
Echec de l'application"
Je fais des relances OUTLOOK via ACCESS
Set monmail = CreateObject
("outlook.application").createitem(olmailitem)
monadresse = Me.EMAIL
montexte
With monmail
.to = monadresse
.subject = "Relance factures non rendues"
.body = "Bonjour," & vbCrLf & vbCrLf & "Je n'ai
toujours pas reçu " & "la facture suivante :" & vbCrLf
+ "Fournisseur : " & Me.NOMFOURN & " facture n° " &
Me.NUMFACT & vbCrLf & vbCrLf & "Merci de faire le
nécessaire rapidement."
.display
End With
tu trouveras un exemple d'envoi de message sur : http://access.seneque.free.fr/envoi_message.htm
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"MAGALIE" a écrit dans le message de news:09ea01c3bb10$8f8477c0$ bonjour,
je ne comprends pas ca marche sur certain poste et pas d'autres...
Sur certains postes je dois d'abord ouvrir outlook pour que ca marche. Sinon j'ai l'erreur suivante :
"Erreur d'application -1247287008 (80030020) Echec de l'application"
Je fais des relances OUTLOOK via ACCESS
Set monmail = CreateObject ("outlook.application").createitem(olmailitem) monadresse = Me.EMAIL
montexte With monmail .to = monadresse .subject = "Relance factures non rendues" .body = "Bonjour," & vbCrLf & vbCrLf & "Je n'ai toujours pas reçu " & "la facture suivante :" & vbCrLf + "Fournisseur : " & Me.NOMFOURN & " facture n° " & Me.NUMFACT & vbCrLf & vbCrLf & "Merci de faire le nécessaire rapidement." .display End With
