Access-o-Mania

Access-Forum => Access Programmierung => Thema gestartet von: thorstens1304 am Juni 15, 2012, 11:16:50

Titel: Mail Versand über unterschiedliche Konten
Beitrag von: thorstens1304 am Juni 15, 2012, 11:16:50
Hallo,

ich nutze für meine DB ein Modul mit dem ich via Script Mails versenden kann.

Public Function SendMail(Empfaenger, Anhang, Betreff As String)
  Dim ool As Outlook.Application
  Dim oMail As Outlook.MailItem
'Anhang
  Dim myattachments As Variant


  ' Verweis zu Outlook + neue Nachricht
  Set ool = CreateObject("Outlook.Application")
  Set oMail = ool.CreateItem(olMailItem)
  Set myattachments = oMail.Attachments

  ' Befreff-Zeile
  oMail.Subject = Betreff

  ' An-Zeile (Empfänger)
  oMail.To = Empfaenger
  ' Texteingabe (Nachricht selbst)
  oMail.Body = "Hallo, anbei finden Sie die Kundendaten zu den Ihnen aktuell übersandten Lizenzbestellungen."
                 
  myattachments.Add Anhang

'-------- Mail versenden -----
  oMail.Send
'----------------------------------

End Function


Gibt es eine Möglichkeit, dass ich hierbei auch noch entscheiden kann über welches Mailkonto ich dies versende?