Mail Versand über unterschiedliche Konten

[thorstens1304]

Hallo,

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

Code [Auswählen] Erweitern

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?