SystemOS.NET.Tools.MailUtil.SendGMailText("grup.fisica.638@gmail.com", "*", txtAsunto.Text, rtbMensaje.Text, "maria7diaz@hotmail.com")

 SendGMailText("Username@Gmail.com", "Password", "Email Subject", "Message Body", "Address@Server.com")

'SendGMailText' no está declarado.

Partial Public NotInheritable Class MailUtil : Inherits AestheticObject

"El tipo AestheticObject no esta definido"

Imports System.Net
Imports System.Net.Mail
 
Module Correo
 
    Private correos As New MailMessage
    Private envios As New SmtpClient
 
    Sub enviarCorreo(ByVal emisor As String, ByVal password As String, ByVal mensaje As String, ByVal asunto As String, ByVal destinatario As String)
        Try
            correos.To.Clear()
            correos.Body = ""
            correos.Subject = ""
            correos.Body = mensaje
            correos.Subject = asunto
            correos.IsBodyHtml = True
            correos.To.Add(Trim(destinatario))
 
            correos.From = New MailAddress(emisor)
            envios.Credentials = New NetworkCredential(emisor, password)
 
            'Datos importantes no modificables para tener acceso a las cuentas
 
            envios.Host = "smtp.gmail.com"
            envios.Port = 587
            envios.EnableSsl = True
 
            envios.Send(correos)
            MsgBox("El mensaje fue enviado correctamente. ", MsgBoxStyle.Information, "Mensaje")
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Mensajeria 1.0 vb.net ®", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
    End Sub
 
End Module
 
 

:remplace
setlocal enabledelayedexpansion
for /f "tokens=* delims=" %%x in ('type %t%\bat.txt') do (
set linea=%%x
set linea=!linea:%%=%%%%!
set linea=!linea:"=""!
call :show !linea!
)
goto:eof
:show 
echo %* >> %t%\batavbs.txt
goto:eof