Mailen ohne Makro
pabro
Habe mal wieder ein Problem.
Unten stehendes Makro habe ich mir zusammengebastelt um damit das korrekte Abspeichern und Versenden eines Formulars zu gewährleisten. Das funktioniert auch soweit, nur habe ich jetzt das Problem, dass der Mailempfänger die Datei nicht öffen kann, da sie ein Makro enthält. Ich habe den Code in einem Modul der Mustervorlage abegespeichert und in meinen Excel-Menüleiste einen Befehlsbutton eingerichtet.
Ich müsste es realisieren, dass die Datei ohne den Code versandt wird, habe schon mal in der AddInn-Welt gesucht aber leider keine Möglichkeit gefunden. Hat jemand einen Tip?
Sub LB_senden()
Dim OApp As Object, OMail As Object
Dim strAtt As String
Dim attAdd As Boolean
Dim n As String, n1 As String
Dim n2 As String, n3 As String
Dim rngR As Range
n = Range("F8").Value
n1 = Range("H8").Value
n2 = Range("G23").Value
n3 = Range("G50").Value
Set rngR = ActiveSheet.UsedRange
With ActiveWorkbook
.SaveAs Filename:="C:\Dokumente und Einstellungen\P.Broich\Eigene Dateien\Broich\ _
Lackberichte\Abgesendet\" & "LB-" & n & "-" & n1 & ".xls"
End With
Set OApp = CreateObject("Outlook.Application")
OApp.Session.Logon
Set OMail = OApp.CreateItem(0)
With OMail
.To = "LBKOELN@FORD.COM" 'Empfänger
.Subject = "LB-" & n & "-" & n1 & "-" & n2
.Attachments.Add ActiveWorkbook.FullName
Do
strAtt = Application.GetOpenFilename("Alle Dateien (*.*),*.*")
If strAtt "Falsch" Then
.Attachments.Add strAtt
attAdd = True
End If
If Not attAdd Then
If MsgBox("Wollen Sie die Datei wirklich ohne weitere Anlagen versenden?", 36, " _
_
Mailanhang") = 7 Then strAtt = ""
End If
Loop While strAtt "Falsch"
.Display 'oder .Send um die Mail gleich zu versenden
End With
ActiveWorkbook.Close
ErrExit:
Set OMail = Nothing
Set OApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub