AW: Subject der Mail festlegen wer kann helfen
06.06.2006 21:10:43
firmus
Hi Torge,
anbei ein Beispiel. Einfach mit copy/past in VB-editor kopieren und mit PF8 stepbystep durchführen.
1) verknüpfungen aus Blatt entfernen.
2) Blatt kopieren zum versand
3) prompt für die email-adresse
4) prompt für den Betreff
5) Versand dieser email mit Blatt als attachment.
gruss,
Firmus
Sub EmailSingleSheet()
' created, 24. Mai 2004, F.Niedermaier, aufgrund von vielen angelesenen Infos
' es sind nicht alle einzeln zitiert.
Dim Adr As String
Dim subj As String
Dim cell As Range
Dim x As Byte
'Dialogbox erstellen
x = MsgBox("wollen Sie die Verknüpfungen entfernen?", vbYesNoCancel, "Verkmüpfungen")
If x = vbCancel Then
' bei ABBRECHEN gedrückt - beenden
Exit Sub
ElseIf x = vbYes Then
'Erstellen der Kopipe
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 Email-Adresse
Adr = InputBox("Bitte geben Sie die Email-Adresse an.", "Email-Adressen")
'Inputbox zum Abfragen des Betreffs
subj = InputBox("Bitte geben Sie den Betreff an.", "Betreff")
'Senden der Email
ActiveWorkbook.SendMail Recipients:=Adr, Subject:=subj
'Schließen der temporären Mappe ohne zu speichern
ActiveWorkbook.Close savechanges:=False
End Sub