Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login
Direktes Email via Outlook
Office Forum -> Access Forum -> Access Programmierung / VBA
zurück: Filter in VBA weiter: Gehe zu Datensatz, wie "Suchen" ?? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Edgar
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Aug 2004, 11:29
Rufname: Eddy

Direktes Email via Outlook - Direktes Email via Outlook

 Nach oben
       
Ich habe folgenden Code, um ein Email via Outlook direkt zu versenden, was auch gut funktioniert, bis auf ein kleines Problem:
Code:
    Dim objOutl As Object
    Dim objMail As Object
    Dim olmailitem As Integer

    Set objOutl = CreateObject("Outlook.application")
    Set objMail = objOutl.createitem(olmailitem)
    With objMail
        .Subject = "Externe Erfassung"
        .to = DLookup("EmailAdresse", "tabStation")
        .attachments.Add convK
        .attachments.Add convP
        .Save
    End With
    Set objMail = Nothing
    Set objOutl = Nothing

Leider landet das Email immer im Outlook unter "Posteingang" und nicht unter "Postausgang". Wie kann ich das Mail direkt in den Postausgang bekommen ?

Danke: Edgar
Helge
Moderator Trotzdem kann i. nicht alles wissen


Verfasst am:
15. Aug 2004, 19:52
Rufname:
Wohnort: Hannover / Seelze

AW: Direktes Email via Outlook - AW: Direktes Email via Outlook

 Nach oben
       
Hallo Edgar,

ändere doch mal dein Save in Send... Very Happy

Gruß Helge
_________________
Unmögliches wir sofort erledigt, Razz
auf Wunsch wird gehext, Very Happy
nur Wunder dauern etwas länger... Embarassed
Eine Rückmeldung, gibt uns und allen anderen Auskunft, ob wir richtig lagen... Wink
Edgar
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Aug 2004, 19:24
Rufname: Eddy

AW: Direktes Email via Outlook - AW: Direktes Email via Outlook

 Nach oben
       
Danke für die Antwort, es klappt super! Gruß:Edgar
siegpes
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Mai 2008, 19:57
Rufname:

AW: Direktes Email via Outlook - AW: Direktes Email via Outlook

 Nach oben
       Version: Office 2007
Hallo Edgar!

ich weiß es ist ein altes thema, aber trotzdem

Kannst du den ganzen code hereinstellen? bitte
Ich brauche ein script mit dem ich einen Bericht an mehrere adresen schicken kann!
Code:
        .To = DLookup("EmailAdresse", "tabStation")
wie hast du da die e-mail adressen hinterlegt?
ich hätte sie in einerabfrage hinterlegt

danke und lg
siegpes
Edgar
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Mai 2008, 20:36
Rufname: Eddy

AW: Direktes Email via Outlook - AW: Direktes Email via Outlook

 Nach oben
       
Bei meiner Codierung wird nur an eine Adresse gemailt. Die Mailadresse wird
aus einer Tabelle TABSTATION gelesen. An mehrere Adressen hintereinander zu
mailen hab ich noch nicht ausprobiert. Da musst Du wahrscheinlich eine Schleife
bauen. Wie sich es anhört, liest Du dann die Adressen mit einer Abfrage aus einer Tabelle ?

Gruß: Edgar
jens05
Moderator


Verfasst am:
19. Mai 2008, 21:06
Rufname:
Wohnort: ~~~~~

AW: Direktes Email via Outlook - AW: Direktes Email via Outlook

 Nach oben
       
Hallo siegpes,
solls eine Sammelmail werden, jeder eine eigene?

Als Sammelmailbeispiel , wenn die Adressen in einer Abfrage zeilenweise vorliegen
Code:
    Dim objOutl As Object
    Dim objMail As Object
    Dim olmailitem As Integer
    Dim rs As DAO.Recordset
    Dim mailadd As String
   
    Set rs = CurrentDb.OpenRecordset("Abfragename")
    Do While Not rs.EOF
        If Nz(rs!EmailAdresse, "") <> "" Then
            mailadd = mailadd & "; " & rs!EmailAdresse 'EmailAdresse = Spaltenname
        End If
        rs.MoveNext
    Loop
    Set objOutl = CreateObject("Outlook.application")
    Set objMail = objOutl.CreateItem(olmailitem)
    With objMail
        .Subject = "Externe Erfassung"
        .To = Mid(mailadd, 3)
        .Attachments.Add convK
        .Attachments.Add convP
        .Display
    End With
    Set objMail = Nothing
    Set objOutl = Nothing

_________________
mfg jens05 Wink
siegpes
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Mai 2008, 07:36
Rufname:

AW: Direktes Email via Outlook - AW: Direktes Email via Outlook

 Nach oben
       Version: Office 2007
siegpes am 19. Mai 2008 um 21:25 hat folgendes geschrieben:
thx
genau des hob i gsucht
"geil"

danke nochmal

lg siegi

Hallo jens05!

Kannst du mir nochmal kurz weiterhelfen?

Nach dem Senden:
Code:
    MsgBox "Mail's wurden erfolgreich abgeschickt!"
möchte aber, dass er hinschreibt wieviel Mail er versendet hat
Code:
    MsgBox Anz & " Mail(s) wurde(n) erfolgreich abgeschickt!"

thx siegpes
Willi Wipp
Moderator


Verfasst am:
21. Mai 2008, 12:06
Rufname:
Wohnort: Raum Wiesbaden

Re: Direktes Email via Outlook - Re: Direktes Email via Outlook

 Nach oben
       
Hi siegpes,

na dann zaehle die Variable doch einfach innerhalb des If-Blocks in der Schliefe hoch!
Code:
        Anz = Anz + 1

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp
(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Neue Antwort erstellen     Nach oben 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: Kategorien aus Outlook Sortieren 1 angeberman 101 23. Jan 2013, 00:00
Gast Kategorien aus Outlook Sortieren
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2007 mail per Outlook senden. 1 tadeusT 515 22. März 2012, 20:38
Sonneschein Access 2007 mail per Outlook senden.
Keine neuen Beiträge Access Tabellen & Abfragen: Email Adresse trennen 4 Svennemann 608 23. Feb 2012, 12:13
Svennemann Email Adresse trennen
Keine neuen Beiträge Access Tabellen & Abfragen: Nachname hat mehere Teile zusammenführen für email Adresse 2 Gast aus Stuttgart 207 24. Jul 2011, 20:38
Gast aus Stuttgart Nachname hat mehere Teile zusammenführen für email Adresse
Keine neuen Beiträge Access Tabellen & Abfragen: Sperrverletzung Aktualisierungsabfrage via ODBC auf MYSQLTbl 3 miragliag 1877 11. Apr 2011, 14:00
helado Sperrverletzung Aktualisierungsabfrage via ODBC auf MYSQLTbl
Keine neuen Beiträge Access Tabellen & Abfragen: Variableninhalt via SQL an Abfrage übergeben 6 ch41n54w 409 23. Feb 2011, 12:44
Gast Variableninhalt via SQL an Abfrage übergeben
Keine neuen Beiträge Access Tabellen & Abfragen: Access-Abfrage - Inhalte via wenn-Funktion umbenennen 2 Orti81 902 03. Aug 2010, 15:11
Orti81 Access-Abfrage - Inhalte via wenn-Funktion umbenennen
Keine neuen Beiträge Access Tabellen & Abfragen: Einen gruppierten Serienbericht als Email versenden 0 MartinGrosse 711 14. Jan 2010, 11:37
MartinGrosse Einen gruppierten Serienbericht als Email versenden
Keine neuen Beiträge Access Tabellen & Abfragen: Formatieren eine PivotCharts via VBA 0 TFree 190 16. Okt 2009, 12:48
TFree Formatieren eine PivotCharts via VBA
Keine neuen Beiträge Access Tabellen & Abfragen: Serienbriefe und eMail 0 streamilein 308 13. Apr 2009, 21:47
streamilein Serienbriefe und eMail
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Problem im Access mit dem öffnen von Pfaden via VB 1 Chillah 424 16. Sep 2008, 21:15
Willi Wipp Problem im Access mit dem öffnen von Pfaden via VB
Keine neuen Beiträge Access Tabellen & Abfragen: altes problem: excel import via Anfügeabfrage 8 Micha85 2432 26. März 2008, 10:59
Zed2k altes problem: excel import via Anfügeabfrage
 

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