habe hier etwas ganz spezielles!
Ich möchte von Excel aus ein Word Dokument öffen! So weit bin ich schon!
Jetzt möche ich an die Stelle, welche ich mit XXXXX markiert habe ein Makro einbauen, welches mir nach ausfüllen des Word-Dokumentes, also nach dem Speichern, dieses gespeicherte Dokument per E-Mail weiterschickt!
Kennt sich jemand dabei aus?
LG Chris
Sub Versuchsauftrag_öffnen()
Dim oWord As Word.Application
Dim oDoc As Document
Dim Aktuell_Datei As String
Aktuell_Datei = ActiveWorkbook.Name
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
sFile = "C:\Versuchsauftrag.Doc"
Set oDoc = oWord.Documents.Open(sFile)
If oDoc Is Nothing Then
GoTo ende
Else
XXXXXXXXX
End If
ende:
Workbooks(Aktuell_Datei).Worksheets("Datenblatt").Activate
End Sub
E-Mail muss irgendwie so gehen:
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial xlValues
ActiveWorkbook.SendMail "m.wilmes@gmx.de", "Bemerkung"
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
Dieses Makro habe ich im Internet gefunden, kenne mich aber leider viel zu wenig damit aus!
Bin mal gespannt, ob es hier einen Spezialisten für solche Fälle gibt!