Diese Arbeitsmappe senden
06.07.2006 08:17:07
tequilla4711
ich habe eine Frage zu meinem Problem. Und zwar muss ich einen Terminierungsbogen erstellen. Meine Frage ist nun, besteht die Möglichkeit den untenstehenden Code so umzubauen, dass die geöffnete Arbeitsmappe sofort gesendet wird (irgendwie mit ThisWorkbook.Sendmail) und nicht mit einem Pfad angegeben werden muss? Das ist wichtig, da die Vorlage zentral auf einem Server abgespeichert werden soll und der Benutzer nicht den VBA Code ändern kann... Von daher soll die geöffnete gesendet werden. Hat jemand einen Tipp für mich?
Danke im Voraus
tequilla
Sub Mail_senden_AV()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
'.Recipients.Add "Terminierung_AV@xxx.com"
'Betreff
.Subject = ActiveWorkbook.Name & " " & Format(Date, "dd.mm.yy")
'Nachricht
.body = "Bitte Auftrag terminieren!" & _
"Mit freundlichen Grüßen" & Chr(13) & Chr(13)
'Lesebestätigung ein
.ReadReceiptRequested = True
'Dateianhang
.Attachments.Add "C:\Dokumente und Einstellungen\lindja.xxx\Desktop\Terminierungsbogen_test1_chris.xls"
'.Send
End With
Set olApp = Nothing
End Sub