Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
E-Mail senden mit Anhang aus dem Access heraus
Gehe zu Seite Zurück  1, 2, 3, 4
zurück: Forumluar lässt sich nicht öffnen -> Laufzeitfehler 2004 weiter: Outlook Appointment von anderem Mailkonto verschicken 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
Camel
Gast


Verfasst am:
28. Feb 2009, 11:01
Rufname:

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

ja ok hab die antwort im anderen Beitrag gepostet
adamth
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Nov 2009, 17:07
Rufname:


AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       Version: Office 2003

hallo ich habe office 2003 und windows 7 installiert.
zuvor hatte ich office 2003 unter xp laufen

folgende code hat eine word datei geöffnet und als serienmail versendet:
Code:
    Shell "C:\Programme\Microsoft Office\OFFICE11\winword.exe " & _
          "D:\AlbatrosMailsystem\MAIL_NEU_01.DOC", 1
Dieser code geht nun nicht mehr, da der Pfad jetzt ist:
Code:
    Shell "C:\Programme(x86)\Microsoft Office\OFFICE11\winword.exe " & _
          "D:\AlbatrosMailsystem\MAIL_NEU_01.DOC", 1
(x86) kann ich aber nicht einfach anfügen.
Gibt es da ne Lösung für ????
Gast



Verfasst am:
26. Nov 2009, 17:12
Rufname:

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

Hallo,
Zitat:
(x86) kann ich aber nicht einfach anfügen.
Gibt es da ne Lösung für ????
Was bedeutet das? Gibts dann eine Fehlermeldung?

teste mal:
Code:
    Shell """C:\Programme(x86)\Microsoft Office\OFFICE11\winword.exe """ & _
            "D:\AlbatrosMailsystem\MAIL_NEU_01.DOC", 1

Gruß Mike
Gast



Verfasst am:
26. Nov 2009, 17:14
Rufname:

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

hab ich schon probiert
(x86) geht aber nicht
bringt er die gleiche Meldung pfad nicht gefunden
Gast



Verfasst am:
26. Nov 2009, 17:32
Rufname:


AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

Hallo,
buist du dir sicher, dass das an den Klammern liegt?
Nachfolgende Varianten laufen bei mir problemlos:
Code:
    Shell "d:\Programme(x86)\i_view32.exe"
    Shell """d:\Programme(x86)\i_view32.exe"""

gruß Mike
MissPh!
Office-VBA-Programmiererin


Verfasst am:
27. Nov 2009, 18:55
Rufname:
Wohnort: NRW

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

Hallo,

kann es sein, dass da einfach nur ein Leerzeichen fehlt?!

_________________
Gruß MissPh!
MatzeDB1
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Feb 2012, 20:21
Rufname:

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       Version: Office XP (2002)

Hallo Zusammen,

es hat hier zwar lange keiner mehr geschrieben, aber ich habe hier einen Ansatz für meine vorhaben entdeckt.

Aus der Beispiel DB von Jens (siehe erste Seite) habe ich folgenden Code übernommen und angepasst:

Code:


Public Function EmailVersenden(Email As String, Optional Projekt)
    Dim olApp As Outlook.Application
    Dim olNamespace As NameSpace
    Dim objMailItem As MailItem
    Dim objFolder As MAPIFolder
    Dim rs As DAO.Recordset
   

    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 = fnErstelleBody
        If Not IsMissing(Projekt) Then
            Set rs = CurrentDb.OpenRecordset( _
                            "Select DokuLink " & _
                              "From tabDokuDateien " & _
                             "Where Projekt_ID_FS=" & Projekt)
                Do While Not rs.EOF
                  If Dir(rs!Datei) <> "" Then                                    ' Hier kommt der Fehler
                    .Attachments.Add "" & rs!Datei & ""
                  End If
                    rs.MoveNext
                Loop
            rs.Close: Set rs = Nothing
        End If
        .Display
    End With
    olApp.ActiveWindow
    'SendKeys "%s"
End Function

Private Sub btnEmail_Click()
EmailVersenden Me.emailadresse, Me.ProjektID
End Sub



Leider gibt Acces einen Laufzeitfehler aus: Element in dieser Liste nicht gefunden.

Weiß jemand rat?
MissPh!
Office-VBA-Programmiererin


Verfasst am:
07. Feb 2012, 20:24
Rufname:
Wohnort: NRW

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

Hallo,

sag doch bitte auch gleich dazu in welcher Codezeile der Fehler auftritt.

ersetzt durch
Code:
            Set rs = CurrentDb.OpenRecordset( _
                            "Select DokuLink " & _
                              "From tabDokuDateien " & _
                             "Where Projekt_ID_FS=" & Projekt)

wenn du die Spalte "Dokulink" ausliest, kannst du nicht später auf die Spalte "Datei" zugreifen.

_________________
Gruß MissPh!


Zuletzt bearbeitet von MissPh! am 07. Feb 2012, 20:30, insgesamt 2-mal bearbeitet
MatzeDB1
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Feb 2012, 20:26
Rufname:

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

steht ganz rechts im Codeblock...

Code:


If Dir(rs!Datei) <> "" Then ...

MissPh!
Office-VBA-Programmiererin


Verfasst am:
07. Feb 2012, 20:27
Rufname:
Wohnort: NRW

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

Sorry, das hatte ich zuerst übersehen.
_________________
Gruß MissPh!
MatzeDB1
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Feb 2012, 20:38
Rufname:

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

Hey,

oh man... wieder mal so einfach...

Ich danke dir.

Wenn ich jetzt nur bestimmt Dateien in meiner Email haben möchte muss ich doch nur ein weiteres Feld der Tabelle zufügen.

Vielleicht ein Kontrollkästchen und dementsprechend die Where - Klausel anpassen oder?

Das Problem ich müsste das Feld wieder löschen. Hm...
MissPh!
Office-VBA-Programmiererin


Verfasst am:
07. Feb 2012, 21:47
Rufname:
Wohnort: NRW

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

An welcher Stelle könntest bzw. wolltest du die Auswahl der Dateien wohl treffen?
_________________
Gruß MissPh!
MatzeDB1
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Feb 2012, 22:11
Rufname:

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

an welcher Stelle?

die Datein werden ja angezeigt in meinem Formular. Und da wähle ich sie denn aus, die ich gerade versenden möchte.

Mal die , mal die.

Oder was meinst du an welcher Stelle ich das auswählen soll?
MissPh!
Office-VBA-Programmiererin


Verfasst am:
08. Feb 2012, 10:30
Rufname:
Wohnort: NRW

AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

Hallo.

Das kann man an dem Code nicht erkennen, dass du die Dateien im Formular siehst, dort liest du sie aus der Tabelle aus und nicht aus dem Formular. Rolling Eyes

Wenn du ein Kontrollkästchen hinzufügst, kannst du sie darüber auswählen und nach dem Versenden kannst du das Kennzeichen direkt wieder löschen.

_________________
Gruß MissPh!
MatzeDB1
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Feb 2012, 13:34
Rufname:


AW: E-Mail senden mit Anhang aus dem Access heraus - AW: E-Mail senden mit Anhang aus dem Access heraus

Nach oben
       

Hallo MissPh,

ich lese die Links in die Tabelle ein und lasse sie mir in einem Unterformular (Endlos) anzeigen.

Ich habe nun ein weiteres Feld in die Tabelle gemacht, das ich mittels Kontrollkästchen (gebunden) auf -1 setze.

Die Where Anweisung habe ich erweitert, jetzt werden die Links angehängt die im Feld AnEmailAnhängen den Wert "-1" haben.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2, 3, 4
Diese Seite Freunden empfehlen

Seite 4 von 4
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: Löschen von Daten aus Formular heraus 2 Jammerjan 94 09. Sep 2013, 16:54
Jammerjan Löschen von Daten aus Formular heraus
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: DoCmd.SendObject --> E-Mail Adressen ins Bcc Feld senden 7 Fmarmy 1232 03. Aug 2011, 14:15
Fmarmy DoCmd.SendObject --> E-Mail Adressen ins Bcc Feld senden
Keine neuen Beiträge Access Tabellen & Abfragen: Datenbankverbidung scheitert aus .dot heraus 1 David__ 187 17. Jan 2010, 01:13
MissPh! Datenbankverbidung scheitert aus .dot heraus
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: E-Mail Verteiler mit Access 3 master-mj 2648 29. Sep 2009, 15:30
Limerick E-Mail Verteiler mit Access
Keine neuen Beiträge Access Tabellen & Abfragen: Serienbriefe und eMail 0 streamilein 308 13. Apr 2009, 21:47
streamilein Serienbriefe und eMail
Keine neuen Beiträge Access Formulare: Bericht per Mail senden 4 bell-air 806 24. Jan 2007, 12:07
Gast Bericht per Mail senden
Keine neuen Beiträge Access Formulare: Formular mit Unterformular per E-mail verschicken 7 freeman1982 917 02. Nov 2006, 20:25
freeman1982 Formular mit Unterformular per E-mail verschicken
Keine neuen Beiträge Access Formulare: Datei aus dem Access heraus öffnen 1 napsi 702 18. Okt 2006, 00:38
Willi Wipp Datei aus dem Access heraus öffnen
Keine neuen Beiträge Access Formulare: Frage zu E-Mail 1 maila 597 14. Sep 2006, 19:49
jens05 Frage zu E-Mail
 

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