Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Automatischer Mailversand ohne Warnmeldung
zurück: Mehrere Autowerte in einer Tabelle / @@IDENTITY weiter: Benutzer und Gruppenkonten verwalten auch in Access 2007 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
c0bRa
Excel-Moderator


Verfasst am:
27. März 2006, 14:41
Rufname: c0bRa
Wohnort: BY

Automatischer Mailversand ohne Warnmeldung - Automatischer Mailversand ohne Warnmeldung

Nach oben
       

hio...

nachdem ich nun lange rumprobiert hab und es durch Zufall auf einmal ging, hier mein Code zum versenden von Emails aus Access heraus
VBA-Code aus Modul Modul1:
Option Compare Database
Option Explicit


Public Function EmailVersenden(email As String, datei As String)
    Dim olApp As Outlook.Application
    Dim olNamespace As NameSpace
    Dim objMailItem As MailItem
    Dim objFolder As mapiFolder

    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set objFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    Set objMailItem = objFolder.Items.Add(olMailItem)
    With objMailItem
        .To = email
        .Subject = "Testtitel"
        .Body = "Testtext"
        If datei <> "" Then .Attachments.Add datei
        .Display
    End With
    olApp.ActiveWindow
    SendKeys "%s"
End Function
Mal sehen, wem ich alles Leid erspare Very Happy

bei Extras -> Verweise muss ein Haken bei Microsoft Outlook x.x Object Library sein

_________________
Ich hoffe, dass ich dir helfen konnte...
Vergiss das Feedback nicht
c0bRa            
"A programmer is just a tool which converts caffeine into code..." CA152F09AC16D043695AC070477488C9A8C9C24D20706


Zuletzt bearbeitet von c0bRa am 17. Jan 2008, 17:42, insgesamt 5-mal bearbeitet
jpa
Access/Excel VBA-Programmierer


Verfasst am:
31. März 2006, 15:21
Rufname: Jean Pierre
Wohnort: Frankfurt


AW: Automatischer Mailversand ohne Warnmeldung - AW: Automatischer Mailversand ohne Warnmeldung

Nach oben
       

Auch eine schöne Lösung mossSOFT OLConnector 8)

Gruß
JPA
Willi Wipp
Moderator


Verfasst am:
10. Aug 2006, 13:25
Rufname:
Wohnort: Raum Wiesbaden

Re: Automatischer Mailversand ohne Warnmeldung - Re: Automatischer Mailversand ohne Warnmeldung

Nach oben
       

Hi Folks,

Nachfragen zum Thema bitte hier Automatischer Mailversand ohne Warnmeldung {Nachgefragt} stellen.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
DanielP
Hobby Bastler ;-)


Verfasst am:
08. Nov 2007, 18:32
Rufname:

AW: Automatischer Mailversand ohne Warnmeldung Danksagung - AW: Automatischer Mailversand ohne Warnmeldung Danksagung

Nach oben
       Version: Office 2003

Hey Leute,
Danke euch !
Funzt Einwandfrei!
Mit eurer Hilfe und dem des gesamten Forums, schaffe ich es Bald meine Datenbank fertig zu Schreiben!!
VIELE DANK AN EUCH!!!!!!!!! Idea Very Happy Exclamation Exclamation
Gast



Verfasst am:
05. Jun 2008, 05:28
Rufname:


AW: Automatischer Mailversand ohne Warnmeldung - AW: Automatischer Mailversand ohne Warnmeldung

Nach oben
       

jooo!
funzt 1A
Herzlichen Dank!
Willi Wipp
Moderator


Verfasst am:
08. Okt 2008, 16:20
Rufname:
Wohnort: Raum Wiesbaden

Re: Automatischer Mailversand ohne Warnmeldung (II) - Re: Automatischer Mailversand ohne Warnmeldung (II)

Nach oben
       

Hi Folks,

hier der Code noch etwas umformatiert und mit Late Binding Wink
Code:
Public Function EmailVersenden(email As String, datei As String)
' Mit Verweis auf Microsoft Outlook x.x Object Library
'    Dim olApp       As Outlook.Application
'    Dim olNamespace As Outlook.NameSpace
'    Dim objMailItem As Outlook.MailItem
'    Dim objFolder   As Outlook.mapiFolder
' Bei Late Binding ==> Kein Verweis noetig!
    Const olFolderInbox = 6
    Const olFolderOutbox = 4
    Const olMailItem = 0
    Dim olApp       As Object 'Outlook.Application
    Dim olNamespace As Object 'Outlook.NameSpace
    Dim objMailItem As Object 'Outlook.MailItem
    Dim objFolder   As Object 'Outlook.mapiFolder

    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set objFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    Set objMailItem = objFolder.Items.Add(olMailItem)
    With objMailItem
        .To = email
        .Subject = "Testtitel"
        .Body = "Testtext"
        If datei <> "" Then .Attachments.Add datei
        .Display
    End With
    olApp.ActiveWindow
    SendKeys "%s"
End Function

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
olihh
Gast


Verfasst am:
20. Jan 2009, 18:17
Rufname:

AW: Automatischer Mailversand ohne Warnmeldung - AW: Automatischer Mailversand ohne Warnmeldung

Nach oben
       Version: Office 2003

klappt bestens!! 1000 Dank!
MissPh!
Office-VBA-Programmiererin


Verfasst am:
11. Jun 2013, 13:34
Rufname:
Wohnort: NRW

AW: Automatischer Mailversand ohne Warnmeldung - AW: Automatischer Mailversand ohne Warnmeldung

Nach oben
       

Hallo miteinander,

ich hätte da auch noch einen Kommentar:
verzichtet bitte auf SendKeys, zum Senden gibt es doch die Send-Methode.

_________________
Gruß MissPh!
jens05
Moderator


Verfasst am:
11. Jun 2013, 20:04
Rufname:
Wohnort: ~~~~~

AW: Automatischer Mailversand ohne Warnmeldung - AW: Automatischer Mailversand ohne Warnmeldung

Nach oben
       

@MissPh!
auf die Send Methode wurde hier verzichtet um die Warnmeldung zu umgehen Wink

_________________
mfg jens05 Wink
MissPh!
Office-VBA-Programmiererin


Verfasst am:
11. Jun 2013, 20:38
Rufname:
Wohnort: NRW

AW: Automatischer Mailversand ohne Warnmeldung - AW: Automatischer Mailversand ohne Warnmeldung

Nach oben
       

Hi,

klär mich bitte auf, worin liegt der Unterschied zwischen .Send und dem Senden via Sendkeys?

Kann man die Warnungen (-> welche?) nicht auch auf anderem Wege unterdrücken?

_________________
Gruß MissPh!
jens05
Moderator


Verfasst am:
11. Jun 2013, 20:47
Rufname:
Wohnort: ~~~~~

AW: Automatischer Mailversand ohne Warnmeldung - AW: Automatischer Mailversand ohne Warnmeldung

Nach oben
       

Hallo,
die Warnmeldung die bei verschiedenen Outlookversionen aufpopt.
Zitat:
Ein Programm versucht ......Nachricht zu versenden
Sicherlich kann man diese Nachricht auf verschiedenste Weise unterdrücken (ich habe immer ExpressClickYes verwendet).
Hier wurde diese durch SendKeys umgangen (erst angezeigt "Display" und dann SendKeys um den Senden Button in der Nachricht zu drücken) Smile

_________________
mfg jens05 Wink
MissPh!
Office-VBA-Programmiererin


Verfasst am:
11. Jun 2013, 21:00
Rufname:
Wohnort: NRW

AW: Automatischer Mailversand ohne Warnmeldung - AW: Automatischer Mailversand ohne Warnmeldung

Nach oben
       

Hallo Jens.

Vielen Dank für die Antwort.
Ohne "Umwege" (-> SendKeys, ExpressClickYes) geht es nicht?
Man kann also Outlook nicht so konfigurieren, dass es die Fremdsteuerung zulässt?

_________________
Gruß MissPh!
jens05
Moderator


Verfasst am:
11. Jun 2013, 21:15
Rufname:
Wohnort: ~~~~~

AW: Automatischer Mailversand ohne Warnmeldung - AW: Automatischer Mailversand ohne Warnmeldung

Nach oben
       

Hallo,
ich meine A2000&a2003 haben das nicht zugelassen.
Unter A97 ging es noch und unter A07 geht es wieder.

_________________
mfg jens05 Wink
MissPh!
Office-VBA-Programmiererin


Verfasst am:
11. Jun 2013, 21:33
Rufname:
Wohnort: NRW


AW: Automatischer Mailversand ohne Warnmeldung - AW: Automatischer Mailversand ohne Warnmeldung

Nach oben
       

Danke, gut zu wissen. Manchmal entwickelt sich auch etwas wieder zum Guten hin. Wink
_________________
Gruß MissPh!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: warnmeldung bei anfügeabfrage einrichten 17 tricky... 387 23. Jan 2012, 11:42
tricky... warnmeldung bei anfügeabfrage einrichten
Keine neuen Beiträge Access Tabellen & Abfragen: Automatischer Zähler, mit Jahresbeginn automatisch mit 1 + J 1 rak52 494 14. Okt 2011, 17:47
Sonneschein Automatischer Zähler, mit Jahresbeginn automatisch mit 1 + J
Keine neuen Beiträge Access Tabellen & Abfragen: Automatischer Feldinhalt abhängig von anderem Feldinhalt 15 Gast 1007 05. Jul 2011, 11:29
MissPh! Automatischer Feldinhalt abhängig von anderem Feldinhalt
Keine neuen Beiträge Access Tabellen & Abfragen: Automatischer Zähler mit manueller Eingabe 8 besser werden Woller 483 14. Okt 2010, 08:57
KlausMz Automatischer Zähler mit manueller Eingabe
Keine neuen Beiträge Access Formulare: Listenfeld mit Mehrfachauswahl für Mailversand 32 SusanneH 1233 19. Aug 2010, 16:22
SusanneH Listenfeld mit Mehrfachauswahl für Mailversand
Keine neuen Beiträge Access Formulare: Formular mit automatischer Ergänzung im Textfeld 13 Barny.G 602 19. Feb 2010, 16:21
Barny.G Formular mit automatischer Ergänzung im Textfeld
Keine neuen Beiträge Access Formulare: Automatischer Datenimport im Formular 1 MartinAmple 186 27. Jul 2009, 15:49
stefan325 Automatischer Datenimport im Formular
Keine neuen Beiträge Access Formulare: Neuer Datensatz in Unterformular mit automatischer KundenNr 11 Gast 588 19. Okt 2008, 14:25
Gast Neuer Datensatz in Unterformular mit automatischer KundenNr
Keine neuen Beiträge Access Tabellen & Abfragen: automatischer Zaehler 1 mike19720 597 05. März 2008, 22:01
jens05 automatischer Zaehler
Keine neuen Beiträge Access Programmierung / VBA: Fehlermeldung beim Mailversand aus Access 2k3 3 Domainhunter 811 19. Feb 2008, 13:37
SGast Fehlermeldung beim Mailversand aus Access 2k3
Keine neuen Beiträge Access Formulare: Problem mit Kontrollkästchen und automatischer Numerierung 1 tamara 594 04. Okt 2007, 22:18
jens05 Problem mit Kontrollkästchen und automatischer Numerierung
Keine neuen Beiträge Access Berichte: Automatischer Zeilenumbruch für Kombinationsfelder 5 Gast 2105 01. Jun 2007, 14:04
Willi Wipp Automatischer Zeilenumbruch für Kombinationsfelder
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum