---

Wir arbeiten mit Outlook 2007.
Ich verschicke neue Zeichnungen nach dem PDF Export (übers Makro) gleich an unsere Produktionslogistik nun würde ich gerne das nach dem PDF Export eine Funktion aufgerufen wird (sendmail) wo dann allerdings nicht gleich die Email geschickt wird sondern sich wie normal bei "Neu" im Outlook die Mail aufgeht und gleich der Anhang drinnen ist. Den Text und email Adresse will ich selbst eingeben und dann abschicken.
Ist das möglich und weiß jemand wie das funktioniert?

------------------
Grüße aus Wien
Philipp

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abend!

So was?

Code:

---

Sub Mailversand()

Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")

Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
'.To = "test@test.de"
'.Subject = "Betreff "
.attachments.Add "C:\test.txt"
'.Body = "Mailtext"
.Display
'.Mail.Send
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Oha wie cool ist das denn genau das was ich wollte TOP DANKE! 

------------------
Grüße aus Wien
Philipp

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ah bei einem hänge ich noch wie übergebe ich den Pfad als Variable?

mit .attachments.Add variable
nimmt er mir das nicht obwohl der richtige pfad drinnen ist (Ist ein Netzwerkpfad)

Fehler:

Code:

---

Run-time error '-2147024894 (80070002)':

Die Datei kann nicht gefunden werden. Überpfüfen Sie den Pfad und den Dateinamen.

---

Pfad sieht so aus:
\\SERVER\xy\1.pdf

------------------
Grüße aus Wien
Philipp

[Diese Nachricht wurde von axi92 am 22. Nov. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok es liegt anscheinend an dem Serverpfad kann man das nicht irgendwie umgehen oder lösen das man Serverpfade verwenden kann?
Lokal funktioniert es

------------------
Grüße aus Wien
Philipp

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Verwendest du den Netzlaufwerksbuchstaben oder den UNC-Pfad? Ich meine ersteres funktioniert nicht.

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Unc pfad das ist doch
//servername/pfad/datei.endung
Oder also nach dem schema verwende ich es da bei uns nicht alle die selben laufwerks buchstaben haben

------------------
Grüße aus Wien
Philipp

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Wirklich Slash im Pfad? Oder Tippfehler und das sind alles Backslash?

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nein eh backslash^^

------------------
Grüße aus Wien
Philipp

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

So sieht mein Sub derzeit aus:

Code:

---

Sub ToMail(dwg As Boolean, pdf As Boolean)
    Dim Nachricht As Object, OutlookApplication As Object
    Dim dwg_pfad As String
    Dim pdf_pfad As String
    Set OutlookApplication = CreateObject("Outlook.Application")
   
    Set Nachricht = OutlookApplication.CreateItem(0)
    With Nachricht
        '.To = "test@test.de"
        '.Subject = "Betreff "
        If dwg = True Then
            dwg_pfad = GetIniValue("IS-Tool (" & Environ$("Username") & ")", "last_dwg")
            MsgBox "Dwg: " & dwg_pfad
            .attachments.Add (dwg_pfad)
        ElseIf pdf = True Then
            pdf_pfad = GetIniValue("IS-Tool (" & Environ$("Username") & ")", "last_pdf")
            MsgBox "PDF: " & pdf_pfad
            'pdf_pfad = "\\CAD\Zeichnungen\131100A00000000_00.pdf"
            .attachments.Add (pdf_pfad)
        End If
        '.Body = "Mailtext"
        .Display
        '.Mail.Send
    End With
    Set OutlookApplication = Nothing
    Set Nachricht = Nothing
End Sub

---

Der Pfad stimmt in den MsgBoxen aber er bekommt das Attachment nicht hin

------------------
Grüße aus Wien
Philipp

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Was genau heißt bekommt er nicht hin? Gibt's eine Fehlermeldung oder macht er einfach nichts? Funktioniert der restliche Code, also wird die neue Mail korrekt erstellt und läßt sie sich anschließend auch verschicken?
Ich hab kein Outlook, daher ist's mit selber probieren schwierig.

Kannst du mal testweise aus:

Code:

---

Dim Nachricht As Object

---

ein

Code:

---

Dim Nachricht As Outlook.MailItem

---

machen?

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

fehler1_asdluhafuasdsef.png bis_dort_hin_dann_schluss_asdhwedfhwoaefh2.png

Ja Fehlermeldung habe ich oben schon geschrieben
http://ww3.cad.de/foren/ubb/Forum258/HTML/001486.shtml#000003

Wenn ich das ersetze geht gar nichts mehr (Bild1)

Und der Sonstige fehler ist Bild 2 aber den Fehler habe ich eh schon mal im Post oben beschrieben.

------------------
Grüße aus Wien
Philipp

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

So, konnte es jetzt mal an einem Rechner mit Outlook probieren. Wenn ich deinen Code laufen lasse, fügt er auch brav das Attachment ein. Entweder ist dein Pfad falsch oder die exportierte Datei existiert zu dem Zeitpunkt noch nicht. Mich beschleicht der Verdacht das der Export noch nicht fertig ist, wenn du die Mail erstellst. Wenn du den Pfad mal fix vorgibst, aber zu einer x-beliebigen anderen existierenden Datei, geht's dann?

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Oh ja auweia das tut mir leid, und ich wundere mich noch. Na klar das das nicht funktionieren kann 
Danke für deine Geduld.
Klappt jetzt alles so wie es soll =)

------------------
Grüße aus Wien
Philipp

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP