collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 51
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 0

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 13808
  • stats Beiträge insgesamt: 64124
  • stats Themen insgesamt: 8674
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 16
  • stats Am meisten online: 415

Autor Thema: Mail Versand über unterschiedliche Konten  (Gelesen 1247 mal)

Offline thorstens1304

  • Access-Profi
  • **
  • Beiträge: 178
Mail Versand über unterschiedliche Konten
« 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?