mit meinem Makro kann ich nun aus einer Exceldatei die aktive Tabelle versenden. Das funktioniert einwandfrei, aber ich würde gerne, dass das Standard-Mailprogramm vor dem Versenden aufgerufen wird und ich noch einen Text schreiben könnte.
Mit dem Makrorekorder finde ich keine Lösung.
Hier mal das Makro:
Sub TabelleSenden()
'Definition der Variablen
Dim Adr As String
Dim Subj As String
Dim Cell As Range
Dim x As Byte
'Dialogbox erstellen
x = MsgBox("Sollen Sie die Formeln durch die Zahlenwerte ersetzt werden?", vbYesNoCancel, " _
Formelbezüge entfernen ...")
If x = vbCancel Then
'Wenn ABBRECHEN gedrückt beenden
Exit Sub
ElseIf x = vbYes Then
'Erstellen der Kopie
ActiveWorkbook.ActiveSheet.Copy
'Wenn JA gedrückt alle Zellen mit Formeln markieren
Selection.SpecialCells(xlCellTypeFormulas).Select
'Formeln durch Werte ersetzen
For Each Cell In Selection
Cell.Value = Cell.Value
Next Cell
Else
'Wenn NEIN: Nur Erstellen der Kopie
ActiveWorkbook.ActiveSheet.Copy
End If
'Inputbox zum Abfragen der E-Mail-Adresse
Adr = InputBox("Bitte geben Sie die E-Mail-Adressen an!", "E-Mail-Adressen")
'Inputbox zum Abfragen des Betreffs
Subj = InputBox("Bitte geben Sie den Betreff an!", "Betreff")
'Senden der E Mail
ActiveWorkbook.SendMail Recipients:=Adr, Subject:=Subj
'Schließen der temporären Mappe ohne Speichern
ActiveWorkbook.Close savechanges:=False
End Sub
Vielleicht hat jemand eine Ahnung ...Danke schon mal im voraus.
Wolfgang.