MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 20.01.2003, 09:22   #1
michaelkalo
(Email-Bestätigung fehlt!)
Standard SendObject Problem

Hallo liebe Access Gemeinde,

ich benutze folgenden Befehl in Access 97 in Kombination mit Outlook 97(nicht Express) :

Private Sub_Click()

Dim strOutPutFormat

strOutPutFormat = "Snapshot-Format (*.snp)"

Syntax:

'DoCmd.SendObject [Objekttyp][, Objektname][, Ausgabeformat][, An][, cc][, Bcc][, Betreff][, Nachricht][, Nachricht bearbeiten][, Vorlagedatei]


DoCmd.SendObject acSendReport, "rpt_ÄdF", strOutPutFormat, "TestAdresse@TestServer.de", , , "Test", , -1

End sub
***********************

Alles läuft super - aber wenn ich möchte, das die E-Mail sofort rausgeht (muß unbedingt sein) und ich am Schluß von docmd.sendobject eine 0 (Null) setze, sagt mir das Programm:

DoCmd.SendObject acSendReport, "rpt_ÄdF", strOutPutFormat, "TestAdresse@TestServer.de", , , "Test", , 0



Laufzeitfehler 2293: Die Nachricht konnte aus folgendendem Grund nicht gesendet werden ,der in der Warnung angegeben wurde.

Beheben Sie das Problem bevor Sie versuchen, die nachricht zu senden.

****************************

Meine Frage:

Wer weiß was über den Fehler 2293 bzw. wo kann ich etwas über Fehlercodes nachlesen ?


Vielen Dank für eure Hinweise

Michael Kalo
michaelkalo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.01.2003, 10:10   #2
Karlheinz
MOF Profi
MOF Profi
Standard

Hallo Michael,

ersetze die 0 doch einmal durch False.

Vielleicht hilft es.

Gruß Karlheinz

__________________

Der Computer ist eine grossartige
Erfindung. Es passieren genauso viele Fehler wie früher.
Aber niemand ist daran Schuld!!
_________________________
Angaben zu : ACC97 OS: NT4.0 / XP
Home: Linux und Open Office
Karlheinz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.01.2003, 10:16   #3
michaelkalo
Threadstarter Threadstarter
(Email-Bestätigung fehlt!)
Standard

Hallo Karl-Heinz,

danke für den Tip - funktioniert aber nicht:

DoCmd.SendObject acSendReport, "rpt_ÄdF", strOutPutFormat, "TestAdresse@TestServer.de", , , "Test", , False

Ergibt den gleichen Fehler 2293, wie vorher .


Wer hätte da noch einen Tip ?

Danke

Michael
michaelkalo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.01.2003, 10:31   #4
Aquarii
MOF Meister
MOF Meister
Standard

Hallo Michael,

also bei mir funzt das mit "False".

Ich meine, ich hätte mal in der dt. Microsoft Knowledge Base etwas über Probleme gelesen, sofern man das Outlook-E-Mail-Sicherheitsupdate installiert hat. Wenn das bei Dir der Fall sein sollte, schau mal nach, was Microsoft dazu schreibt.

__________________

Schöne Grüße aus Heidelberg

Heiko

Don Karl - FAQ | Access-Paradies | DBWiki | Relationale Datenbanken
Ich arbeite mit: Win 7, Office 2013
Aquarii ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.01.2003, 11:03   #5
michaelkalo
Threadstarter Threadstarter
(Email-Bestätigung fehlt!)
Standard

Hallo Aquarii,

genau das scheint da Problem zu sein. Danke für den Tip !

Danke

Michael
michaelkalo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.01.2003, 19:18   #6
michaelkalo
Threadstarter Threadstarter
(Email-Bestätigung fehlt!)
Standard

Hallo Access Gemeinde,

dieses Thema ist für mich nach wie vor aktuell, unzwar geht es um folgendes Problem:

Die SendObject Methode funktioniert nicht, wenn ich als Paramter am Schluß "False" eingebe:

*****************************

DoCmd.SendObject acSendReport, "rpt_ÄdF", strOutPutFormat, "TestAdresse@TestServer.de", , , "Test", , False

******************************

False heißt in diesem Fall, die Nachricht soll nicht mehr bearbeitet werden und direkt per Outlook ohne vorheriges Ansehen versendet werden.

Das Sicherheitsupdate von Outlook 97 verhindert ein solches Verhalten, damit sich gemeine Viren nicht unbemerkt per Outlook verbreiten - konkret
Tritt der Fehler 2293 auf. Natürlich verstehe ich den Sinn des Sicherheitsupdate, dennoch möchte ich an meiner Idee festhalten.

Meine Frage an euch:

Wer hat das gleiche Problem gehabt und kann mir einen konkreten Vorschlag oder einen Tip in die richtige Richtung geben, wie man E-Mails versenden kann, ohne das das Sicherheitsupdate dazwischen funkt ?

Vielen Dank für eure Anregungen.

Michael


********************************

PS: Ich habe von der Seite www.freeaccess.de in der Rubrik Access Downloads eine Datenbank heruntergeladen: "e-mails versenden".

Diese Lösung greift direkt auf Windows API Funktionen zurück und soll in der Lage sein E-Mails direkt und ohne zusätzliches Hilfsprogramm E-Mails zu versenden - also ohne Outlook. Obwohl ich der Meinung bin, das ich den Code einigermaßen durchschaue und die richtigen Parameter übergebe, habe ich es nicht geschafft E-Mails an mein eigenes Postfach zu versenden.

Falls jemand weiß, ob diese Lösung praktikabel sein könnte - danke für eure Tips !
michaelkalo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.01.2003, 10:50   #7
michaelkalo
Threadstarter Threadstarter
(Email-Bestätigung fehlt!)
Hinweis

Hallo Leute,

da ich noch keine Lösung habe, wollte ich das Thema ein letztes Mal mal auf den Tisch bringen.

Gibt es eine Lösung dieses Problem zu umgehen ?

Bin ich der einzige, der dieses Problem hat ?

Vielen Dank für eure Anregungen.

Michael
michaelkalo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 31.01.2003, 07:38   #8
HLeske
Neuer Benutzer
Neuer Benutzer
Frage

Hallo Michaelkalo

Ich benutze Office 2000 und schaffe die Daten erst in eine Datei und verschiecke sie dann ohne Probleme mit Outlook.

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim Pfad As String
Dim Datei As String
Dim Attachment As String

Pfad = "C:/senden/"
Datei = "test.xls"

Attachment = Pfad + Datei

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Abfrage1", Attachment, True


' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg

' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("webmaster@ig-lgb.de")
objOutlookRecip.Type = olTo

' Add the CC recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("webmaster@ig-lgb.de")
objOutlookRecip.Type = olCC

' Set the Subject, Body, and Importance of the message.
.Subject = "Das ist ein Test"
.Body = "Das sind Daten." & vbCrLf & vbCrLf
.Importance = olImportanceHigh
'High importance

' Add attachments to the message.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(Attachment)
End If

' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display

End If

Next

.Send

End With

Set objOutlookMsg = Nothing
Set objOutlook = Nothing


ob das unter 97 geht kannst Du nur Testen.

gruß
Hans-Jürgen
HLeske ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.09.2003, 14:30   #9
Thomas Braun
MOF Koryphäe
MOF Koryphäe
Standard

Hallo, hatte eben dasselbe Problem und verschicke Mails jetzt so:
Das Beispiel arbeitet mit Late-Binding. Dadurch ist keine Verweis auf die Outlook-Bibliothek nötig und sollte somit unter allen Versionen laufen.

Code:

' simuliert die Funktion 'SendObject' falls die 
' Outlook Sicherheitseinstellungen den Befehl unterbinden

Public Function fct_SendeMail(Optional strAn As String, _ 
                Optional strBetreff As String, Optional strText As String, _ 
                Optional blnBearbeiten As Boolean)
  Dim objOutlook As Object
  Dim objNachricht As Object
  
  If Nz(strAn) = "" Then
    MsgBox "Bitte geben Sie einen Empfänger an.", , "Fehler"
    Exit Function
  End If
  
  Set objOutlook = CreateObject("Outlook.Application")
  Set objNachricht = objOutlook.CreateItem(0)
  With objNachricht
    .To = Nz(strAn)
    .Subject = Nz(strBetreff)
    .Body = Nz(strText)
    ' ... hier evtl. noch weitere Felder definieren
    If blnBearbeiten = True Then .Display Else .Send
  End With
  
  Set objNachricht = Nothing
  Set objOutlook = Nothing
  
End Function

__________________

hth Thomas
<a *****"http://www.accessprofipool.de" TARGET="_blank" STYLE="text-decoration:none">Access-Profi-Pool</a>

Geändert von Thomas Braun (19.09.2003 um 14:32 Uhr).
Thomas Braun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:03 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.