ist es irgendwie möglich und wenn wie, per Button eine eMail zu schreiben die man dann nur noch abschicken müsste.
Private Sub Image4_Click()
End Sub
soviel steht schonmal ;)
Gruß Sven
Private Sub Image4_Click()
End Sub
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