Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access envoi de mail ( code de raymond)

envoi de mail ( code de raymond)

4 réponses
Avatar
fth
Bonjour Raymond,
je fais un essai avec ton code pour l'envoi de mail.
comme je dois valider des inscriptions pour aprox 200 personnes, je vais
donc faire en sorte que tout parte en mm temps
MAIS
je ne vois pas comment les faire partir en Cci (Bcc)

pour créer la liste, un do while ou for...next devrait faire l'affaire

mais une chose à la fois

Dim Corps As String
Corps = "Messieurs," & vbCrLf & vbCrLf
Corps = Corps & "veuillez trouver ci-joint " & Me.texte1 & " du " &
Me.dateInfo
Corps = Corps & " " & Forms("Formulaire1").Controls("moncontrole")
SendMessage "nospam.access.seneque@free.fr; nospam.access.seneque@free.fr",
_
"Test d'automation avec Outlook",
Corps , _
"nospam.access.seneque@free.fr", _
"C:\doc1.doc"

d'avance un grand merci

Frédéric
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Jessy Sempere [MVP]
Bonjour

je n'ai pas regardé le code de Raymond mais en voici un qui illustrera
gloabelement ce que tu veux faire, aussi bien pour la liste que pour le Cci

*******************************************************
Function SendMailCRR()

Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem
Dim rst As DAO.Recordset
Dim strTo As String
Dim strTmp As String

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)
Set rst = CurrentDb.OpenRecordset("select * from tblFT_Info " _
& "where FichierParc = False", dbOpenDynaset)

With rst
If Not .BOF Then
.MoveFirst
Do Until .EOF
strTmp = Nz(.Fields("mail"), "")
If IsNull(strTmp) = False And strTmp <> "" Then _
strTmp = Mid(strTmp, InStr(strTmp, "#") + 8): _
strTmp = left(strTmp, Len(strTmp) - 1)
If strTo = "" Or IsNull(strTo) Then
strTo = strTmp
Else
strTo = strTo & ";" & strTmp
End If
.MoveNext
Loop
End If
End With
rst.Close: Set rst = Nothing

With olItem
.BCC = strTo
.Subject = "Parc auto"
.Body = "Bonjour"
.Display
End With
End Function
*******************************************************

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"fth" <frederic.thiriauxSPAM!@matloc.be> a écrit dans le message news:

Bonjour Raymond,
je fais un essai avec ton code pour l'envoi de mail.
comme je dois valider des inscriptions pour aprox 200 personnes, je vais
donc faire en sorte que tout parte en mm temps
MAIS
je ne vois pas comment les faire partir en Cci (Bcc)

pour créer la liste, un do while ou for...next devrait faire l'affaire

mais une chose à la fois

Dim Corps As String
Corps = "Messieurs," & vbCrLf & vbCrLf
Corps = Corps & "veuillez trouver ci-joint " & Me.texte1 & " du " &
Me.dateInfo
Corps = Corps & " " & Forms("Formulaire1").Controls("moncontrole")
SendMessage ";
",

_
"Test d'automation avec Outlook",
Corps , _
"", _
"C:doc1.doc"

d'avance un grand merci

Frédéric




Avatar
Raymond [mvp]
Bonjour Jessy.

dans ma fonction il suffit de placer les destinatires To, CC et BCC à la
queue leu leu , séparés par des ; (points-virgules) , au bon endroit bien
sûr, les to dans le to, les cc dans le cc et les bcc dans le bcc.
Quelle efficacité !

[HS] Jessy, est-ce qu'on te voit le 27 juin ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jessy Sempere [MVP]" a écrit dans le message de
news: 428b56a3$
Avatar
fth
Bonsoir Raymond,

ton code fonctionne "du Tonerre de Dieu" ...
avec l'avantage d'être très clair ...
un vrai régale
une "patisserie"
Merci

"Raymond [mvp]" wrote in message
news:%
Bonjour Jessy.

dans ma fonction il suffit de placer les destinatires To, CC et BCC à la
queue leu leu , séparés par des ; (points-virgules) , au bon endroit bien
sûr, les to dans le to, les cc dans le cc et les bcc dans le bcc.
Quelle efficacité !

[HS] Jessy, est-ce qu'on te voit le 27 juin ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jessy Sempere [MVP]" a écrit dans le message
de news: 428b56a3$



Avatar
Raymond [mvp]
Le temps des cerises est là, ce sera encore meilleur.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"fth" <frederic.thiriauxSPAM!@matloc.be> a écrit dans le message de news:
%
Bonsoir Raymond,

ton code fonctionne "du Tonerre de Dieu" ...
avec l'avantage d'être très clair ...
un vrai régale
une "patisserie"
Merci