title image


Smiley Ich heisse zwar nicht Walter, aber
Wenn ich meinen Senf dazugeben darf:Der Messagetext muss als String-Variable übergeben werden. Du musst also den (oder die) Datensatz einfach nur entsprechend umformen (Stichwort Recordset) und die String-Variable an die E-Mail-Versand-Funktion übergeben.Quick- und Dirty-Beispiel:Private Sub MacheeinenString()' declarations für Recordsetwhile not rs.eof strMessage = strMessage & rs("Name") & " " & rs("Vorname") & vbcrlfrs.movenextloopif SchickeEMail("BillClinton@WhiteHouse.com",strMessage,"Grüsse aus Buxtehude") then msgbox "E-Mail verschickt"else msgbox "Irgendein Problem mit dem $%/§!!-Mail"endifend subPublic function SchickeEMail(strAdresse as string,strBetreff as string,strMessage as string) as boolean On Error GoTo SchickeEMail_errorSchickeEMail=true DoCmd.SendObject , , , strAdresse, , , strBetreff,strMessageexit functionMsgBox ErrorSchickeEMail=falseexit function End function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: