Mailversand aus Access über Outlook

Hallo,

ich habe eine Frage bzgl. des Mailversands aus Access heraus - habe ein Mailingscript, welches für den Versand ein falsches Konto verwendet - könnt ihr mir sagen, wo ich das einstellen kann

das ist der Teil, wo die Mail erstellt und versendet wird

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim Betreff As String: Betreff = "Abrechnung"  
Dim Nachricht As String, an As String, ATT1
Dim db As Database, rs As Recordset
Dim html

.
.
.
'Mailobjekt erstellen  
  Set objOutlook = CreateObject("Outlook.Application")  
  Set objOutlookMsg = objOutlook.CreateItem(0)
 
  'Tabelle "Verteiler" auslesen.  
  Set db = CurrentDb
  Set rs = db.OpenRecordset("Verteiler", dbOpenDynaset)  
  DoCmd.Echo True
  If rs.EOF Then MsgBox "Keine Empfänger im Verteiler", vbExclamation: GoTo Ex  
 
  With objOutlookMsg
    'Durch alle Empfänger  
    Do While Not rs.EOF
      an = Nz(rs!Name, "")  
      If an <> "" Then .Recipients.Add an  
      rs.MoveNext
    Loop
   'Inhalt des Mails festlegen  
     .Importance = 0 ' niedrige priorität  
    .Subject = Betreff
    .HTMLBody = html   'HTML-Format  
    .Attachments.Add ATT1 'Berichte anhängen  
    '.Attachments.Add ATT2  
    For Each objOutlookRecip In .Recipients
      objOutlookRecip.Resolve 'Namen überprüfen  
    Next
    '.Display 'Nachricht wird angezeigt  
    .Send   'Nachricht wird sofort gesendet  
  End With

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 667095

Url: https://administrator.de/forum/mailversand-aus-access-ueber-outlook-667095.html

Ausgedruckt am: 02.04.2025 um 11:04 Uhr

6 Kommentare

Neuester Kommentar

Damit

' ...  
dim acc as Object, selAcc as Object
for each acc in objOutlook.Session.Accounts
    if acc.SmtpAddress = "user@domain.tld" then set selAcc = acc  
Next
if not selAcc is Nothing then
   set objOutlookMsg.SendUsingAccount = selAcc
End if
' ...  

Bitte lesen bevor gefragt wird:
https://docs.microsoft.com/de-de/office/vba/api/outlook.mailitem.sendusi ...

Gruß w.

da bekomme ich die Meldung Objektvariable nicht festgelegt - sie ist doch mit DIM festgelegt

Kleiner Tippfehler auf meiner Seite hatte das "set" vergessen, ist oben korrigiert...

Fehler bleibt leider

Kopiers nochmal (vermutlich veralteter Browser Cache oder hast's and der falschen Stelle eingefügt) lüppt hier problemlos ...
Breakpoints und F8 sind deine Freunde, und nicht immer so viel copy und pasten, das lässt nämlich die grauen Zellen verkümmern!

.

Ich bin raus. Case closed.

so gemacht, wie du geschrieben hattest - Fehler bleibt

bleibt hängen bei dieser Zeile

for each acc in objOutlook.Session.Accounts

kann es an den Verweisen liegen

ich habe mal dieses Script probiert

Sub SendUsingAccount()
 
 Dim oAccount As Outlook.Account
 
 For Each oAccount In Application.Session.Accounts
 
 If oAccount.AccountType = olPop3 Then
 
 Dim oMail As Outlook.MailItem
 
 Set oMail = Application.CreateItem(olMailItem)
 
     oMail.Subject = "Sent using POP3 Account"  
 
     oMail.Recipients.Add ("someone@example.com")  
 
     oMail.Recipients.ResolveAll
 
 Set oMail.SendUsingAccount = oAccount
 
     oMail.Send
 
 End If
 
 Next
 
End Sub