Send Button Excel Sheet
16.02.2016 13:24:22
Micha
ich habe mir einen Button gebastelt der mir eine Excel-Datei an eine bestimmte Email-Adresse automatisch versendet.
Sub Mappe_versenden_als_EMail()
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String
Dim MAdr As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
Bezeichnung = ActiveWorkbook.Name
MAdr = "max.mustermann@web.de" 'Deine E-Mail Adresse eingeben
Application.ScreenUpdating = False
With objMail
.To = MAdr
.Subject = Bezeichnung
.Body = "Hello, attached you find the new sheet"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
MsgBox ("Your excel file has been successfully sent and forwarded to us.")
Application.ScreenUpdating = True
End Sub
Folgendes zusätzliches Feature benötige ich.
Sobald man den Send-Button klickt soll ein Pop-Up-Fenster geöffnet werden wo der User eine bestimmte E-Mail-Adresse eingeben kann, an den diese Mail gesendet werden soll.
Ist es auch möglich das Excel-File als pdf-Datei zu versenden?
Falls Ihr noch irgendwelche Infos benötigt, könnt ihr euch gerne melden.
Vielen Dank schon einmal im Voraus.
Gruß
Micha
Anzeige