Aus Access automatisiert emails versenden

Hallo Gemeinschaft,

habe in access eine Tabelle, die so in der Art aussioeht

id__name___email___Anreise_::::::x

nun möchte ich, dass wenn der Anreisetag kleiner ist als heute +5, dass dann eine mail gesendet wird

bekommt man das auch automatisiert hin

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

Content-ID: 7763603371

Url: https://administrator.de/forum/aus-access-automatisiert-emails-versenden-7763603371.html

Ausgedruckt am: 02.04.2025 um 01:04 Uhr

5 Kommentare

Neuester Kommentar

Hallo,

Zitat von @jensgebken:
bekommt man das auch automatisiert hin

Ja, definiere automtisiert. Evtl. ChatGPT mal fragen

Gruß,
Peter

Moin,

Zitat von @jensgebken:

bekommt man das auch automatisiert hin

klar, kein Problem. Die Accessdatenbank in Word als Datenquelle einbinden und dann mittels Serienbrieffunktion die Mail erstellen.

Gruß

Moin,

Also wenn es automatisiert sein soll, würde ich mich mit der Access mdb via Powershell verbinden und dann morgens um 6 einen geplanten Task laufen lassen. Gibt es für den heutigen Tag + 5 Treffer, erhält jeder eine Mail:

https://www.reddit.com/r/PowerShell/comments/hszx8g/how_to_read_access_d ...

Moin,

ich bin mal so frei.

Sub SendMailWithAttachment_Standard(p_Subject As String, p_Anrede As String, p_Text As String, p_Email As String, p_Account As Long, p_Filename As String)

    Dim MyOutApp
    Dim MyMessage
    Dim body As String
    Dim subject As String
    
    Set MyOutApp = CreateObject("Outlook.Application")  
    
    Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
    
        Set .SendUsingAccount = MyOutApp.Session.Accounts.item(p_Account)
        .GetInspector.Display
        .Display
    
        .To = p_Email
        '.ReadReceiptRequested = True  
        
        '.Importance = 2  
        '.OriginatorDeliveryReportRequested = True  
        
        If (p_Filename <> "") Then  
            .Attachments.Add p_Filename
        End If
        
        .subject = p_Subject
        
        body = "<p style='font-size:14.5;'>" & p_Anrede & "<br><br>" & p_Text  
            
        .HTMLBody = body & .HTMLBody
    
        .Save
        .Close 0
        '.Send 'Hier wird die Mail gesendet  
    
    End With
    
    Set MyOutApp = Nothing
    Set MyMessage = Nothing

    
End Sub