VBA-Hilfe zu Excel/Outlook
28.06.2005 16:01:50
MRP
habe aus
http://www.office.gmxhome.de/_excel_outlook.htm#EXCEL%20Tabelle%20mit%20Outlook%20senden
folgenden Code:
Sub Excel_Sheet_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Dim SavePath As String
Dim AWS As String
SavePath = "E:\Eigene Dateien"
Set OutApp = CreateObject("Outlook.Application")
'Kopiert aktuelles Sheet in eine neue Mappe
'welche nur diese Tabelle enthält
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen und dem Namen in A1
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ActiveSheet.Range("A1")
'Aktive Arbeitsmappe wird als mail gesendet
AWS = ActiveWorkbook.FullName
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "irgendwer@Irgenwo.de"
.Subject = "Testmeldung von Excel2000 " & Date & Time
.Attachments.Add AWS
'Hier wird eine normale Text Mail erstellt
'.body = "Das ist ein Test" & vbCrLf & "Bitte ignorieren"
'Hier wird die HTML Mail erstellt
.HTMLBody = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
'Hier könnte die Datei wieder gelöscht werden
'Kill AWS
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Jetzt mein Problem, ich möchte gerne die Codezeile .To = "irgendwer@Irgenwo.de" ersetzen durch den Inhalt aus A1 der aktiven Arbeitsmappe. Ich dachte das geht wie weiter oben im Code durch ActiveSheet.Range("A1"). Ich kriege aber immer nen Syntaxfehler :-( Habe schon probiert das Ganze irgendwie zu verketten ( sorry, meine VBA-Kenntnisse belaufen sich nur aufs Aufzeichnen mit dem Makrorecorder ) mit &, aber ich kriegs nicht hin. Ausserdem schliesst sich mein Outlook immer nach dem Makrolauf, hmm?!
Könnte mir bitte mal jemand auf die Sprünge helfen?
Danke im vorraus
Manuele Rocco Parrino