Send Email til alle

http://www.eksperten.dk/artikler/371

Jeg har et eksempel. Læg din e-mail.

Hej Mugs >
Jeg har din db50 og db58 i forvejen ... så hvis det er dem du henviser til, har jeg dem allerede c",)

Jeg er med på metoden med at vælge een modtager som i dit eksempel, men mit behov går ud på at jeg umiddelbart efter afslutning af en større programopdateringsrutine, skal have programrutinen til at afslutte med at udsende en lille besked til samtlige brugere om at data er opdateret

Det er 58 jeg sigter på. med i 58 kan du også vælge alle på listen. Det må kunne automatiseres, så db selv udfører opgaven med et call til en funktion.

Jeg har forsøgt, netop med dit eksempel fra db58, men kan ikke rigtigt få det til at funke :-(

Den fungerer fint her med først at vælge alle på listen og derefter overføre dem til adressefeltet. Vil du have en ny?

Jeg så helst at jeg undgik din "mellemformular" ... kan ikke lige se hvordan jeg får det automatiseret :-(

Prøv!~)

dim db as dao.database
dim rst as dao.recordset
set db = currentdb()
set rst = db.openrecordset("NavnPåDinTabelEllerForespørgsel")
with rst
.movefirst
do
DoCmd.SendObject , , , !NavnPåEmailFelt, , , "Data er opdateret.."
.movenext
loop until .eof
.close
end with

spg> det var noget i den stil, men det skal være een og samme mail til alle brugere på een gang - det viste eksempel sender mail enkeltvis :-(

Endte med denne version :

Public Sub SendMessage(Optional AttachmentPath)

  Dim MyDB As Database
  Dim MyRS As Recordset
  Dim objOutlook As Outlook.Application
  Dim objOutlookMsg As Outlook.MailItem
  Dim objOutlookRecip As Outlook.Recipient
  Dim objOutlookAttach As Outlook.Attachment
  Dim TheAddress As String

  Dim Message1 As String
  Dim Message2 As String

    On Error Resume Next

    Message1 = "The Management Flash DataWarehouse-application updated up until : " & _
              DLookup("[ReportDate]", "tblLastUpdate")

    Message2 = "Auto-Genereted message." & Chr(10) & Chr(10) & _
                "Please do not reply directly to this message."

  Set MyDB = CurrentDb
  Set MyRS = MyDB.OpenRecordset("tblMailingList")
  MyRS.MoveFirst

  ' Create the Outlook session.
  Set objOutlook = CreateObject("Outlook.Application")
 
  Do While Not MyRS.EOF
  ' Create the e-mail message.
  Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
  TheAddress = TheAddress & MyRS![EmailAddress] & ";"
  MyRS.MoveNext
  Loop
   
    With objOutlookMsg
        ' Add the To recipients to the e-mail message.
        Set objOutlookRecip = .Recipients.Add(TheAddress)
        objOutlookRecip.Type = olTo

        ' Set the Subject, the Body, and the Importance of the e-mail message.
        .Subject = Message1
        .Body = Message2
        .Importance = olImportanceHigh  'High importance
       
        'Add the attachment to the e-mail message.
        If Not IsMissing(AttachmentPath) Then
          Set objOutlookAttach = .Attachments.Add(AttachmentPath)
        End If

        ' Resolve the name of each Recipient.
        For Each objOutlookRecip In .Recipients
          objOutlookRecip.Resolve
          If Not objOutlookRecip.Resolve Then
            objOutlookMsg.Display
          End If
        Next
        .Send
      End With
  '  MyRS.MoveNext
  'Loop
  Set objOutlookMsg = Nothing
  Set objOutlook = Nothing

End Sub

you could try using the GetString method for a recordset

MyRS.GetString....

Hi Terry >
I'm wery satisfied with the solution I found (03/04-2008 14:51:14), but thanks anyway

Jeg lukker ... thanks to all

Kan I ikke lige alle smide et svar ... I får point for jeres forsøg :-)

Jeg afstår - God weekend

I lige måde :-)