Mailing Warnung vermeiden

09/03/2010 - 14:16 von Der_Soern | Report spam
Hi

ich habe einen Code der mir das aktive Tabellenblatt über meinen
Mailing-client verschickt. Das funktioniert soweit auch gut.

Ich bekomme aber immer so ne blöde Fehlermeldung bzw Warnung. Das ist bei
mir zuhause nicht weiter wild aber führt im Firmennetz zu problemen.
Weiß Jemand ob ich das umgehen kann?

Wenn nicht ist auch nicht so schlimm, es ist ja nur ein
Bequemlichkeitsbutton. Wàre trotzdem cool das nutzen zu können.

Hier mal der Code:

Sub Mail_ActiveSheet()

Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim receiver As String
Dim subject As String


With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Set Sourcewb = ActiveWorkbook

'Tabellenblatt kopieren
ActiveSheet.Copy
Set Destwb = ActiveWorkbook

'Erfassung der Excelversion
With Destwb
If Val(Application.Version) < 12 Then
'Excel 97-2003
FileExtStr = ".xls": FileFormatNum = -4143
Else
'Excel 2007
If Sourcewb.Name = .Name Then
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
MsgBox "Your answer is NO in the security dialog"
Exit Sub
Else
Select Case Sourcewb.FileFormat
Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If .HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56: FileExtStr = ".xls": FileFormatNum = 56
Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
End If
End With



'Speichert neues workbook versendet und loescht es
TempFilePath = Environ$("temp") & "\"
TempFileName = "Part of " & Sourcewb.Name & " " _
& Format(Now, "dd-mmm-yy h-mm-ss")

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
receiver = InputBox("Empfànger eingeben")
subject = InputBox("Titel eingeben")
.SendMail receiver, _
subject
On Error GoTo 0
.Close SaveChanges:=False
End With

Temp-Datei loeschen
Kill TempFilePath & TempFileName & FileExtStr

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
 

Lesen sie die antworten

#1 Martin Hentrich
09/03/2010 - 17:23 | Warnen spam
On Tue, 9 Mar 2010 05:16:02 -0800, Der_Soern
wrote:

Ich bekomme aber immer so ne blöde Fehlermeldung bzw Warnung.



Aha, welche denn? Und wann?
Und wer gibt diese Meldung aus? Excel? Windows? Firewall?

Martin

"Allen ist das Denken erlaubt, doch vielen bleibt es erspart."
[Curt Goetz]

Ähnliche fragen