Mail perVBA ausACCESS anOUTLOOK...verzögert!

hi leute,

großes problem und ich komm nicht weiter - bitte helft mir:

  • ich habe ein funktionierende datenbank mit geburtsdaten von
    kunden
  • per button erstellt mir access in outlook eine mail und zeigt diese
    an
  • es wird automatisch eine übermittlungsverzögerung (auf den
    genauen geburtstag) in outlook programmiert

jetzt versendet outlook aber nur wenn der pc auch an ist (exchange-
server; nicht anders lösbar)

WIE KANN ICH DIE ÜBERMITTLUNGSVERZÖGERUNG SO
PROGRAMMIEREN; DASS DIESE NUR DANN VON ACCESS AN
OUTLOOK ÜBERMITTELT WIRD; WENN ES SICH BEI DIESEM TAG
UM EINEN WERKTAG (MO-SA) HANDELT???

hier mein aktueller vba-code:

Private Sub EMailButton_Click()
Dim Applikation As New Outlook.Application
Dim Mail As Outlook.MailItem
Set Mail = Applikation.CreateItem(olMailItem)
Mail.To = Me![Email]
Mail.Subject = Me![Betreff]
Mail.Attachments.Add „bilddatei.jpg“, jpg, 1, „ort“
Mail.HTMLBody = „“ & Me![mailtext]
Mail.DeferredDeliveryTime = Me![GebtagDJ]
Mail.SentOnBehalfOfName = „[email protected]

Mail.Display
End Sub

lieben dank für eure hilfe.
sascha

ps: und falls ihr noch wisst wie ich in die email auch ein bild
einfügen (nicht anhängen! das hab ich schon) kann dann bitte nur
her mit den ideen :smile:

Hallo,

meintest Du:

Private Sub EMailButton_Click()

if Format(Me![GebtagDJ], „DDDD“) = „Sonntag“ then
exit sub

Dim Applikation As New Outlook.Application
Dim Mail As Outlook.MailItem
Set Mail = Applikation.CreateItem(olMailItem)
Mail.To = Me![Email]
Mail.Subject = Me![Betreff]
Mail.Attachments.Add „bilddatei.jpg“, jpg, 1, „ort“
Mail.HTMLBody = „“ & Me![mailtext]
Mail.DeferredDeliveryTime = Me![GebtagDJ]
Mail.SentOnBehalfOfName = „[email protected]

Mail.Display
End Sub

Gruß
Ronny