E-Mails aus MS Access versenden

mach a neue odbc-datenquelle dann kannst mit php (ev. perl?) ganz einfach alle adressen durchgehen und mailen.

imho kann man mit vba eh wunderbar emails verschicken...

stichwort "SendObject"

mit asp (eigentlich eh VBA ähnlich, aber halt skriptsprache) ziemlich simpel.
zB

Daten=DBConn.execute("SELECT * FROM tabelle WHERE Kürzel = 'mb'")
'das is halt die datenbank connection, da will ich jetzt net auf details eingehen

strTo=Daten("Empfaenger")
strFrom="Frys_Assassin"
strSubject="Massenmail Nr. " & Daten("Nr")
strMemo="Folgende Daten sind eingetragen:" & chr(13)
strMemo=strMemo & Daten("Bla") & chr(13)
'Ich tu immer der Übersichtlichkeit die DAten zwischensppeichern

Set objMail=Server.CreateObject("CDONTS.Newmail")
'mittels ASP das Mail-Object generieren

objMail.From=strFrom
objMail.To=strTO
objMail.Subject=strSubject
objMail.Body=strMemo
objMail.Send
'alle daten initialisieren und abschicken

das ganze dann in einer endlosschleife für alle Datensätze in der struktur "Daten" und fertig

hab das thema jetzt aber nur grob umrissen, für details empfehle ich ein kleines selbststudium im internet

edith: möglich dass du eh die selbe syntax auch im vba übernehmen kannst, ich weiss es aber net

Hmmm ... SendObject in VBA hatte ich mir eigentlich schonmal angeschaut, aber da war ich offenbar ein bisserl blind.
Klingt eigentlich relativ brauchbar, werd mir das noch genauer zu Gemüte führen.
Danke fürs Input!

wo is das problem?

du holst dir ein outlook object und erstellst deine mailobjects und schickst die dann weg (bzw. du kannst sie ja in einen outlook ordner speichern lassen). über dieses thema gibt es genug tutorials..

hab sowas auch mal gemacht - vielleicht hilft dir dieser code weiter - ist aber für lotus notes R5 abgestimmt - aber kannst sicher für outlook umwandeln....



Private Function subSendNotesMail(Subject As String, Attachment As String, ByRef recipient As String, BodyText As String, SaveIt As Boolean)
' http://www.lotus.com/products/lotusscript.nsf/
'http://www.lotus.com/products/lotusscript.nsf/Notes%204.6%20Classes?OpenNavigator
'Set up the objects required for Automation into lotus notes
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim version

Set session = CreateObject("Notes.NotesSession") 'Start a session to notes

version = session.NotesVersion


'Get the sessions username and then calculate the mail file name
UserName = session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'MailDbName = session.GetEnvironmentString("MailFile", True) ' Alternative zur Zeile darüber

'Open the mail database in notes
Set Maildb = session.GetDatabase("", MailDbName)


If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If

'Set up the new mail document
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"

MailDoc.sendto = recipient

MailDoc.Subject = Subject
'MailDoc.Body = BodyText

MailDoc.SaveMessageOnSend = SaveIt

Set AttachME = MailDoc.CreateRichTextItem("Body")
AttachME.AppendText (BodyText)
Call AttachME.AddNewLine(2)


'Set up the embedded object and attachment and attach it
If Attachment <> "" Then
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Body")
'MailDoc.CREATERICHTEXTITEM ("Attachment")
End If

Call AttachME.AddNewLine(1)

Set richStyle = session.CreateRichTextStyle
richStyle.FontSize = 10
richStyle.NotesColor = blue
Call AttachME.AppendStyle(richStyle)
Call AttachME.AppendText("Mit freundlichen Grüßen")
Call AttachME.AddNewLine(2)

richStyle.FontSize = 10
richStyle.Bold = True

Call AttachME.AppendStyle(richStyle)
Call AttachME.AppendText("")
Call AttachME.AddNewLine(1)

richStyle.NotesColor = red
richStyle.Bold = False
Call AttachME.AppendStyle(richStyle)
Call AttachME.AppendText("")
Call AttachME.AddNewLine(1)

richStyle.FontSize = 8
richStyle.NotesColor = blue
Call AttachME.AppendStyle(richStyle)

AttachME.AppendText ("Tel: " & "")
Call AttachME.AddNewLine(1)
AttachME.AppendText ("Fax: " & ")
Call AttachME.AddNewLine(1)
AttachME.AppendText ("e-mail: protected")
Call AttachME.AddNewLine(1)


'Send the document
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
'MailDoc.Send 0, recipient

MailDoc.Send True

'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing
End Function

Zitat von mat

wer access hat.. sollt outlook auch haben - das IMO die leichteste variante.

du kannst auch eine c++ COM DLL machen und über SMTP mails wegschicken..

stimmt schon, aber ich versteh sowieso nicht warum der thread wieder ausgegraben wurde, er hat sich nimmer gemeldet, also nehm ich an er hats hinkriegt...