eMail aus Access versenden und dazu verschiedene Mailadressen als Absender auswählen können
Stefan Paesch
Wir haben eine Datenbank (A2003, Win XP Pro) in der Wartungsarbeiten
und deren Intervalle verwaltet werden.
Die Wartungstechniker bekommen automatisch generierte eMails als
Erinnerung (DoCmd.SendObject....).
Ich habe in meinem Outlook 2003 zwei eMailkonten.
Erinn...@Wartung.de und meine sonstige (Standart) Mailadresse
Di...@Wartung.de.
Nun ist es lästig und ich vergesse es auch oft, bei Erinnerung die
Mailadresse umzustellen.
Gibt es eine Möglichkeit, das Mailkonto per VBA/API umzustellen und
dann wieder zurück ?
Hat jemand einen anderen Lösungsansatz ?
Ich hab schon mächtig in den Foren gesucht, aber irgendwie waren die
Beispiele oft Links, auf denen ich das Thema dann nicht so richtig
wieder gefunden habe.
Vielen Dank Stefan.
Mark Doerbandt
Stefan Paesch:
also, sag noch mal genauer: Du hast in Outlook zwei Konten und sendest
aus Access die eMails ueber Outlook los? Wie genau machst Du das
jetzt?
Gruss - Mark
--
2. SEK (SQL Server-Entwickler-Konferenz) in Nürnberg:
12./13.4 und 19./20.4.2008 http://www.donkarl.com/SEK
Bitte keine eMails auf Newsgroup-Beiträge senden.
Stefan Paesch
versendet wird die jeweilige Mail über DoCmd.SendObject ....., True -
das heißt Outlook geht auf und ich schaue noch einmal über die Daten
und dann per senden (manuel) die email weg, vorher von
Standartabsender auf Erinnerung@wartung. de umgestellt (oder eben auch
nicht).
So ist die Datenbank momentan programmiert. Muss aber nicht so laufen.
Wenn es eine Methode gibt, z.B. ohne Outlook, sondern die Erinnerungen
gleich aus Access zu senden ist das auch gut.
Mark Doerbandt
Stefan Paesch:
> Hallo Mark,
btw: antworte doch bitte lieber auf mein als auf Dein Posting, dann
bekomme ich es mit.
> versendet wird die jeweilige Mail über DoCmd.SendObject ....., True -
> das heißt Outlook geht auf und ich schaue noch einmal über die Daten
> und dann per senden (manuel) die email weg, vorher von
> Standartabsender auf Erinnerung@wartung. de umgestellt (oder eben auch
> nicht).
soweit ich weiss, hast Du da keine Moeglichkeit, per VBA das
Versandkonto festzulegen.
Du koenntest es wie folgt machen, was ich aber auch als "Hack" ansehe:
Dim Mail As Outlook.MailItem
Set Mail = OL.Application.CreateItem(olMailItem)
Mail.To = "spamre...@doerbandt.de"
Mail.Subject = Format(Now, "yyyy-mm-dd hh:nn:ss") & " - Test"
Mail.Body = "Demo zu Send Mail using other Account"
Mail.Display
Mail.GetInspector.CommandBars("Standard").Controls(3).Controls(4).Execute
Mail.Send
Set Mail = Nothing
- der "Kniff dabei ist, den Knopf quasi automatisiert zu druecken.
Ab Outlook 2007 gibt es dafuer iirc eine Methode .SendUsingAccount...
Josef Zins
>
> Nun ist es lästig und ich vergesse es auch oft, bei Erinnerung die
> Mailadresse umzustellen.
> Gibt es eine Möglichkeit, das Mailkonto per VBA/API umzustellen und
> dann wieder zurück ?
Muss es unbedingt Outlook sein ?
Mit postie lässt sich im Aufrufstring alles einstellen
z.B.
varPostie = "c:\Postie\postie.exe -host:smtp.xxxx.de _
-to:emp...@mail.de -from:me...@email.de -s:Termin-Erinnerung _
-file:c:\Terminwarnungen\Msg_Text.txt"
Ergebnis = Shell(varPostie, 1)
Deatils siehe: http://www.infradig.com/postie/
Bei mir funzt das wunderbar
--
Grüsse
Josef Zins
Teile dein Wissen mit anderen. Dies ist eine gute Möglichkeit,
Unsterblichkeit zu erlangen (Dalai Lama)
Stefan Paesch
> Du koenntest es wie folgt machen, was ich aber auch als "Hack" ansehe:
>
> Dim Mail As Outlook.MailItem
> Set Mail = OL.Application.CreateItem(olMailItem)
> Mail.To = "spamre...@doerbandt.de"
> Mail.Subject = Format(Now, "yyyy-mm-dd hh:nn:ss") & " - Test"
> Mail.Body = "Demo zu Send Mail using other Account"
> Mail.Display
> Mail.GetInspector.CommandBars("Standard").Controls(3).Controls(4).Execute
> Mail.Send
> Set Mail = Nothing
>
> - der "Kniff dabei ist, den Knopf quasi automatisiert zu druecken.
*** danke für den Tipp, ist auf jeden Fall ein Ansatz
> Ab Outlook 2007 gibt es dafuer iirc eine Methode .SendUsingAccount...
*** da wir beabsichtigen, mittelfristig auf Office 2007 umzusteigen
wäre iirc evtl. dann eine Alternative ? Gibt es dazu irgendwo
Informationen (außer OH).
Ich stoße momentan schnell an meine Grenzen, da ich mich erst seit ca,
1 Jahr mit VBA beschäftige. Da bin ich immer froh, wenn ich "Idioten"
sichere Beschreibungen finde.
Auf jeden Fall vielen Dank für Deine/Eure Hilfe.
Gruß Stefan
Mark Doerbandt
Stefan Paesch:
> SendUsingAccount
http://msdn2.microsoft.com/en-us/library/bb207787.aspx
Stefan Paesch
vielen Dank für den Tipp. Ich habe den Code auf meinem privaten
Rechner ausprobiert (Office 2007, Win XP pro).
Da gibt es eine Fehlermeldung beim kompilieren " For Each oAccount In
Application.Session.Accounts"
Session - Methode oder Datenobjekt (Schlüsselwort) nicht gefunden.
Fehlt noch irgendein Verweis ? Eingebunden sind:
Visual Basic For Applications
MS Access 12.0 Object Library
OLE Automation
MS Office 12.0 Access database engine Object Library
MS Outlook 12.0 Object Library
Viele Grüße Stefan.
Thomas Möller
Stefan Paesch <google...@paesch.com> schrieb:
> vielen Dank für den Tipp. Ich habe den Code auf meinem privaten
> Rechner ausprobiert (Office 2007, Win XP pro).
>
> Da gibt es eine Fehlermeldung beim kompilieren " For Each oAccount In
> Application.Session.Accounts"
>
> Session - Methode oder Datenobjekt (Schlüsselwort) nicht gefunden.
wenn Du diesen Code in Access laufen lässt, dann bezieht sich
"Application" auf die Access-Application. Was Du brauchst ist eine
Variable, der Du die Outlook-Application zuweist.
HTH
--
Thomas
Homepage: www.Team-Moeller.de
Mark Doerbandt
Stefan Paesch:
> Da gibt es eine Fehlermeldung beim kompilieren " For Each oAccount In
> Application.Session.Accounts"
mit Application ist dabei eine Outlook.Application gemeint - die
Access-Application kennt die Session ja nicht.
Versuche mal:
Dim oApp As Outlook.Application
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
Set oApp = CreateObject("Outlook.Application")
For Each oAccount In oApp.Session.Accounts
If oAccount.AccountType = olPop3 Then
Set oMail = oApp.CreateItem(olMailItem)
oMail.Subject = "Sent using POP3 Account"
oMail.Recipients.Add ("som...@example.com")
oMail.Recipients.ResolveAll
oMail.SendUsingAccount = oAccount
oMail.Send
End If
Next
Set oApp = Nothing
Günter Gerold
falls es nicht erforderlich ist, daß die gesendeten Mails in Outlook zu
sehen sind, kannst du auch einen SMTP-Mailer wie Blat verwenden.
Guckst du hier:
http://www.blat.net/examples/MSAccess_class.html
Stefan Paesch
Günter Gerold schrieb:
> Hallo Stefan,
>
> falls es nicht erforderlich ist, da� die gesendeten Mails in Outlook zu
> sehen sind, kannst du auch einen SMTP-Mailer wie Blat verwenden.
> Guckst du hier:
> http://www.blat.net/examples/MSAccess_class.html
Vielen Dank Euch allen, werde ich alles durchprobieren.