Zellbereich als mail versenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BereichAlsEMailVersenden() Dim Empfänger As String Dim Bereich As Range Application.SheetsInNewWorkbook = 1 Empfänger = InputBox("Geben Sie den Empfänger des e-Mails ein!") If Empfänger = "" Then Exit Sub Set Bereich = Application.InputBox("Wählen Sie den Bereich aus Sie den versenden möchten", Type:=8) Range(Bereich.Address).Select Selection.Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs "Anhang.xls" Application.Dialogs(xlDialogSendMail).Show _ Empfänger, "markierter Bereich" End Sub

Hallo junny!

Sorry, dass ich dich etwas hängen ließ! Was ist das Problem bei den Makros (läuft natürlich nur mit Outlook)? Kriegst du Fehlermeldungen? In welcher Form möchtest du den Bereich versenden? Als Text-Tabelle?

Ich hab das folgende Makro erst vorige Woche bei mir eingebaut, und es läuft:


Private Function SendEMail() As Boolean
SendEMail = False
On Error GoTo EMailFehler
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "Dein Empfaenger"
.CC = ""
.BCC = ""
.Subject = "Dein Betreff"
.Body = "Nachrichtentext aus dem Bereich"
.Send   'oder Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Nachricht wurde erfolgreich versandt!", vbInformation + vbOKOnly
SendEMail = True
Exit Function
EMailFehler:
Beep
MsgBox "Fehler beim Versenden der Nachricht!", vbCritical + vbOKOnly
End Function

Private Function SendEMail() As Boolean SendEMail = False On Error GoTo EMailFehler Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItem Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) With OutMail .To = "Dein Empfaenger" .CC = "" .BCC = "" .Subject = "Dein Betreff" .Body = "Nachrichtentext aus dem Bereich" .Send 'oder Display End With Set OutMail = Nothing Set OutApp = Nothing MsgBox "Nachricht wurde erfolgreich versandt!", vbInformation + vbOKOnly SendEMail = True Exit Function EMailFehler: Beep MsgBox "Fehler beim Versenden der Nachricht!", vbCritical + vbOKOnly End Function

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellbereich als mail versenden

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread