Das Archiv des Excel-Forums

Mails über vba verschlüsselt senden

Bild

Betrifft: Mails über vba verschlüsselt senden
von: andi

Geschrieben am: 25.09.2003 13:46:43

Hi,

weiss vielleicht einer, ob es möglich ist, wenn man mit vba über outlook mails versendet, diese zu verschlüsseln?
Wenn ja, kann mir auch einer sagen, wie des funktioniert

Danke schon mal im voraus!
Bild


Betrifft: AW: Mails über vba verschlüsselt senden
von: Reinhard
Geschrieben am: 28.09.2003 14:21:29

Hi andi,
z.B. mit dem Folgenden verschlüsseln, senden und Empfänger muss dann entschlüsseln:
(aus https://www.herber.de/forum/archiv/88to92/t88960.htm von Matthias)
Gruß
Reinhard


Sub Verschluesseln()
Dim i As Integer, j As Integer
Dim Zelle As String
Dim Start As Integer
Zelle = ActiveCell.Value
j = 0
For i = 1 To Len(Zelle)
If Asc(Mid(Zelle, i, 1)) <> 32 Then
Select Case Asc(Mid(Zelle, i, 1))
Case 65 To 90, 97 To 122
Select Case Asc(Mid(Zelle, i, 1)) - j
Case 65 To 90, 97 To 122
Start = Asc(Mid(Zelle, i, 1)) - j
Case 61 To 64, 93 To 96
Start = Asc(Mid(Zelle, i, 1)) + 26 - j
Case Else
Start = Asc(Mid(Zelle, i, 1)) - j
End Select
Case Else
Start = Asc(Mid(Zelle, i, 1)) - j
End Select
Else
Start = 32
End If
Mid(Zelle, i, 1) = Chr(Start)
j = j + 2
If j = 6 Then j = 0
Next
ActiveCell.Value = Zelle
End Sub




Sub Entschluesseln()
Dim i As Integer, j As Integer
Dim Zelle As String
Dim Start As Integer
Zelle = ActiveCell.Value
j = 0
For i = 1 To Len(Zelle)
If Asc(Mid(Zelle, i, 1)) <> 32 Then
Select Case j
Case 0
Start = Asc(Mid(Zelle, i, 1)) - j
Case 2, 4
Select Case Asc(Mid(Zelle, i, 1)) + j
Case 65 + j To 90, 97 + j To 122
Start = Asc(Mid(Zelle, i, 1)) + j
Case 91 To 90 + j, 123 To 122 + j
Start = Asc(Mid(Zelle, i, 1)) - 26 + j
Case Else
Start = Asc(Mid(Zelle, i, 1)) + j
End Select
End Select
Else
Start = 32
End If
Mid(Zelle, i, 1) = Chr(Start)
j = j + 2
If j = 6 Then j = 0
Next
ActiveCell.Value = Zelle
End Sub



 Bild

Excel-Beispiele zum Thema " Mails über vba verschlüsselt senden"

Datei senden download Arbeitsmappe als Email versenden download
Inhalt einer Arbeitsmappe als Mail senden (ohne die Mappe selbst) download Arbeitsmappe zeitgesteuert per Email an einen Verteiler versenden download
Tabellenblattbereich als Email versenden download Aus Excel heraus eine Email ohne Arbeitsmappenanlage versenden download
Eine Tabelle periodisch mit dem Standard-Emailprogramm versenden download Inhalt einer Tabelle periodisch mit Outlook versenden download
Excel-Zellinhalte in Worddokument einlesen um per Email versenden download Inhalt von Zelle A1 mit Outlook versenden download
In Abhängigkeit von einem Formelwert Mail mit Outlook versenden download Beim Öffnen der Arbeitsmappe Email versenden download
Ausgewählten Bereich als interaktive Tabelle versenden download Nachricht versenden und zur Nachverfolgung kennzeichnen download
OLE-Verbindung aufbauen und Verb senden download Rundschreiben mit vorgegenem Text an Verteiler senden download
Mehrfachauswahl per Outlook versenden download Arbeitsblatt an variable Email-Adresse per Outlook versenden download
Arbeitsmappen gem. Liste an Email-Adressen versenden download