Office: Oultook

strausto · 22. März 2003

Mit folgendem Code versuche ich eine email aus Access mit Outlook (xp) zu senden

Code:

Public Function emailSend(ByVal strMessage)

Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Dim objRecipient As Outlook.Recipient

Set objOutlook = New Outlook.Application
Set objMailItem = objOutlook.CreateItem(olMailItem)
Set objRecipient = objMailItem.Recipients.Add("t.strauss@lat.de")

With objMailItem
.body = strMessage
.Send

End With

Set objRecipient = Nothing
Set objMailItem = Nothing
Set objOutlook = Nothing

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun scheitert das ganze an der Aufforderung von Outlook :

Ein Programm versucht wuf Ihre in Outlook gespeicherten email Adressen zuzugreifen. Möchten Sie das zulassen?

...

Die email soll aber ohne Zutun des Benutzers versendet werden ohne eine entsprechende Bestätigung.

Wie kann ich das umgehen?

Danke!

:)

jinx · 24. März 2003

Moin, Torsten,

vielelicht hilft ja der Hinweis auf Nervige Abfrage in Outlook bei der Übergabe via VBA mit dem weiteren Verweis auf ClickYes...

strausto · 24. März 2003

Danke! Danke! Danke! Danke! Danke! Danke! Danke! Danke! Danke!

notedock · 25. März 2003

Hallo,

ich habs getestet. Es funzt. Echt super.

Dank und Gruß

Tobias

User · 6. Mai 2004

Hatte das geleiche Problem wie die Vorredner.
Hab das Programm ClickYes (http://www.express-soft.com/mailmate/clickyes.html) installiert.

Ist echt super!

Vilen Dank für die Hilfe !!!!!!!!!

Red · 19. Mai 2004

Hallo zusammen

Wir haben eben umgerüstet von WinNT und O2k auf WinXP und O2003.

Ich habe mir das Tool ClickYes auch installiert, da ich Emails auf Access versenden muss.

Aus Sicherheitsgründen verlangt die Informatik aber, dass das Programm nicht dauernd läuft.

Wie kann ich den Prozess(ClickYes.exe) im Tarkmanager beenden?

MLX · 19. Januar 2005

Hi Ruedi,

ich weiss der Thread is scho älter, aber vielleicht sucht es ja noch wer anders.

2 Wege die gleiche Lösung:

Entweder erstellst du ein Batchfile und trägst folgendes ein:
Code:

taskkill /f /im ClickYes.exe
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder direkt in VBA:
Code:

shell "taskkill /f /im ClickYes.exe"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die vom Hersteller dokumentierten Funktionen sind mir viel zu komplex und aufwendig *mrcool , ausserdem würde dann ja das Tool permanent laufen und das ist mir zu unsicher, da die Endanweder keine IT-ler sondern "normale User" sind. (Merken wahrscheinlich nicht mal wenn sie nen Virus o.ä. haben)

Habe daher in meiner Anwendung innerhalb eines Moduls zwei Abschnitte:

Starten von ClickYes

Beenden von ClickYes

Greetinx Lucent