:strip_icc():strip_exif()/u/28082/nimm2.jpg?f=community)
Ik heb een database gemaakt van waaruit mailadressen kunnen worden geselecteerd. Het uiteindelijke doel is om slechts een mailtje naar al deze adressen in een keer te versturen, door alles in het BCC veld te zetten.
Ik heb hiervoor een script gevonden dat de mail standaard met outlook verstuurt, maar ik wil het zo hebben dat deze mail ook met andere clients kan worden verstuurd, zoals outlook xpress en eudora, omdat het op verschillende pc;s moet kunnen draaien.
Hiervoor ben ik op zoek naar een zo eenvoudig mogelijk commando waarmee ik een nieuw mailtje kan openen in de default client met hierin het bericht, onderwerp en de adressen in het BCC veld.
Bestaat er in access een makkelijke manier om zo een mailtje te openen?
de code die ik nu gebruik, maar alleen met outlook werkt:
Ik heb hiervoor een script gevonden dat de mail standaard met outlook verstuurt, maar ik wil het zo hebben dat deze mail ook met andere clients kan worden verstuurd, zoals outlook xpress en eudora, omdat het op verschillende pc;s moet kunnen draaien.
Hiervoor ben ik op zoek naar een zo eenvoudig mogelijk commando waarmee ik een nieuw mailtje kan openen in de default client met hierin het bericht, onderwerp en de adressen in het BCC veld.
Bestaat er in access een makkelijke manier om zo een mailtje te openen?
de code die ik nu gebruik, maar alleen met outlook werkt:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
| Public Function SendEMail()
Dim db As DAO.Database
Dim MailList As DAO.Recordset
Dim MyOutlook As Outlook.Application
Dim MyMail As Outlook.MailItem
Dim Subjectline As String
Dim Maillijst As String
Dim BodyFile As String
Dim fso As FileSystemObject
Dim MyBody As TextStream
Dim MyBodyText As String
Set fso = New FileSystemObject
' First, we need to know the subject.
We can't very well be sending around blank messages...
Subjectline$ = Form_verstuurMailtableform.mailSubject
' If there's no subject, call it a day.
If Subjectline$ = "" Then
MsgBox "No subject line,
no message." & vbNewLine & vbNewLine &
"Quitting...", vbCritical, "E-Mail Merger"
Exit Function
End If
' Now we need to put something in our letter...
MyBodyText$ = Form_verstuurMailtableform.mailText
' If there's no subject, call it a day.
If MyBodyText$ = "" Then
MsgBox "No subject line, no message." &
vbNewLine & vbNewLine & "Quitting...", vbCritical, "E-Mail Merger"
Exit Function
End If
' Now, we open Outlook for our own device..
Set MyOutlook = New Outlook.Application
' Set up the database and query connections
Set db = CurrentDb()
Set MailList = db.OpenRecordset("mailsendmailadressenquery")
' now, this is the meat and potatoes.
' this is where we loop through our list of addresses,
adding them to e-mails and sending them.
Do Until MailList.EOF
' This creates the e-mail
Maillijst$ = Maillijst$ & "; " & MailList("e-mail 1")
'And on to the next one...
MailList.MoveNext
Loop
'Cleanup after ourselves
Set MyMail = MyOutlook.CreateItem(olMailItem)
' This addresses it
MyMail.To = "*******"
MyMail.BCC = Maillijst$
'This gives it a subject
MyMail.subject = Subjectline$
'This gives it the body
MyMail.Body = MyBodyText$
'This sends it!
MyMail.Send
Set MyMail = Nothing
'Uncomment the next line if you want Outlook to shut down when its done.
'Otherwise, it will stay running.
'MyOutlook.Quit
Set MyOutlook = Nothing
MailList.Close
Set MailList = Nothing
db.Close
Set db = Nothing
End Function |
[ Voor 12% gewijzigd door nimm2 op 01-04-2004 13:37 . Reden: email adres verwijderd ]