AW: Aus Excel neue Outlook eMail erstellen
14.07.2006 16:35:04
firmus
Hallo Sven,
das habe ich mal zur Übung "zusammengebaut".
Habe es schon lange nicht mehr genutzt (d.h. nicht erneut getestet).
Gruss,
Firmus
Sub EmailSingleSheet()
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